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I. INTRODUCTION 


This draft final report is prepared under NASA Contract NAS5-33215 to document and 
summarize the results of the entire contract work. This project is a Phase II effort of the 
Small Business Innovation Research (SBIR) Topic 07.05 of NASA solicitation 94.1 . 

This final report includes sections on project results, conclusions, recommendations, as 
well as a separate discussion of Phase III commercialization plans. Additionally, there 
is a system user guide, technical documentation on translator software, and 
commented copies of source code listings in standard personal computer (PC) floppy 
disk format. A completed Report Documentation Page (NASA Form 1626) is included 
as the final page of the report. 

The Integrated Data Visualization and Virtual Reality Tool (IDVVRT) Phase II effort was 
for the design and development of an innovative Data Visualization Environment Tool 
(DVET) for NASA engineers and scientists, enabling them to visualize complex multi- 
dimensional and multivariate data in a virtual environment. The objectives of the 
project were to: (1) demonstrate the transfer and manipulation of standard engineering 
data in a virtual world (2) demonstrate the effects of design and changes using finite 
element analysis tools (3) determine the training and engineering design and analysis 
effectiveness of the visualization system. These objectives were successfully 
accomplished. 

A description of significant events which have occurred in the project follows. The 
Phase II contract was awarded on 20 February 1996, with Dual, Incorporated s 
(DUAL’s) acknowledgment of receipt on 5 March 1996. Further guidance was received 
from the Contracting Officer’s Technical Representative (COTR) during a 19 March 
orientation meeting. Principal Investigator duties transitioned from Hank Okraski to 
David Dryer starting on 6 May 1996, due to Mr. Okraski’s promotion to Vice President. 
Mr. Okraski will provide overall direction and commercialization oversight as program 
director. A planning conference was held with Clark Atlanta University (CAU) and the 
University of Central Florida (UCF) on 13 and 14 May 1996 at DUAL’S Lake Mary 
facility. Mr. Dryer visited CAU on 7 Jun 96 to further refine the CAU scope of work with 
all CAU team members and view CAU test bed resources. Letters were received from 
both UCF and CAU in Jun 96, confirming that purchase orders from DUAL were in 
place. Mr. Dryer visited NASA GSFC on 25 - 27 Jun 96 for initial meetings and an 
assessment of the NASA FEA environment. Dr. Corso visited NASA GSFC on 6 Sep 
96 for further observation of the NASA FEA environment. An initial Finite Element 
Analysis (FEA) and visualization workshop was held at UCF on 1 1 Oct 96. NASA finite 
element model (FEM) input files were imported and manipulated in candidate 
immersive environments at CAU in Oct 96. In Nov 96, a primary software development 
environment was selected and an initial DVET prototype developed which includes 
FEM animation functionality. The FEM data translation software, called FEM2VR, was 
also enhanced to handle limited FEM output data and translation to Virtual Reality 
Markup Language (VRML) 1.1. Mr. Dryer visited CAU on 20-22 Nov 96 to further 
assess the CAU test bed and refine the prototyping schedule and direction. An initial 
DVET prototype was established in Nov 96 at CAU using dVISE by Division, Inc. as the 
selected development environment. A virtual environment (VE) laboratory was 
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established at DUAL in Dec 96 and one of its uses will be to develop and manage 
configuration for DVET software releases. DVET prototype development at CAU and 
DUAL continued in Jan 97 and an Hyper Text Markup Language (HTML) FEA 
questionnaire was finalized for use in obtaining industry engineer feedback. In Feb 97, 
software training was conducted at CAU, prototype development continued at CAU and 
UCF, and a paper concerning the project was accepted for presentation at the 
International Training and Education Conference (ITEC) 97. The further development 
of the CAU testbed DVET prototype was the focus of project work in Mar and Apr 97. 
The ITEC 97 paper was presented on 22 Apr 97 and was well received. A 
demonstration of initial DVET testbed functionality at NASA-GSFC occurred on 29 Apr 
97. Addressing feedback from the 29 Apr NASA demonstration and transfer of coding 
effort to DUAL occurred in May 97. DVET code development occurred in Jun 97 to 
extend the DVET FEM dynamic model architecture and functionality for DVET 
Prototype Release 1 . In July 97, extensive DVET code development continued to 
prepare for a DVET Prototype Release 1 in Aug 97. Also, a second FEA and 
visualization workshop was held with industry and academic representation at UCF on 
1 1 July 97. In August 97, DVET Prototype Release 1 was completed and DVET 
Prototype Release 2 modifications and enhancements were started. A demonstration 
of DVET Prototype Release 1 , with some Release 2 functionality occurred on 29 Aug 
97 at CAU and was attended by Tim Carnahan, NASA COTR. Many NASA 
suggestions for enhancements were incorporated into the DVET software and hardware 
development plan. Subsequently, in the Sep 97 reporting period, software engineering 
activities continued to enhance DVET functionality towards Release 2. The DVET 
experimental plan for usability assessment at CAU was also finalized. In Oct 97, DVET 
functionality was enhanced towards DVET Release 2, including additional visualization 
capability, improved data structures, and headtracking device integration. Evaluators 
for the DVET prototype effectiveness assessment were also identified. In November 
1997, a DVET Windows NT (Win NT) System was demonstrated at the DUAL booth in 
Bldg.2 at NASA Johnson Space Center’s Inspection ’97 on the 12 - 14 th . A meeting 
was held with Division, Inc. to discuss commercialization and further development of 
DVET. In December 1997, DVET software and hardware development continued 
towards DVET Release 2, primarily in the areas of enhancing the FEM2VR module and 
porting DVET to a SGI system at DUAL. In January 1998, a graphical user interface 
was developed for the FEM2VR module of WinNT DVET. Visualization of critical FEA 
boundary conditions has been completed. Users can now toggle selected buttons and 
either visualize or hide the load and/or the constraint cases. February activities 
included a final project demonstration at NASA-GSFC attended by Tim Carnahan, 
NASA COTR, and NASA-GSFC management and engineering personnel. During this 
presentation, DVET version 2.0 functionality and potential collaborative enhancements 
were demonstrated. March 1998 activities included refining software documentation, 
draft final report preparation, and DVET code preparation for delivery. 
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II. RESULTS 


This section will summarize significant project results starting with most recent activities. 
Whenever possible, monthly report submissions will be referenced where results have 
already been documented and submitted to NASA. 

A. Final Project Demonstration - 17 February 1998 

In February 1998, DUAL presented a final demonstration of Integrated Data 
Visualization and Virtual Reality Tool Phase II SBIR project at NASA-Goddard Space 
Flight Center (GSFC). The demonstration took place on February 17 from 0900-1200 
in the Skybox conference room at Building 28, NASA-GSFC. This demonstration was 
presented by David Dryer and Ola Fakinlede from DUAL. Key attendees included Hank 
Okraski, DUAL Senior V.P., Research and Technology; Tim Carnahan, NASA-GSFC 
Contracting Officer Technical Representative for this project; Mr. Brodeur, NASA-GSFC 
Code 540; John Decker, NASA-GSFC Code 542; and Bill Hayden, NASA-GSFC Code 
542. Other NASA-GSFC attendees included Jeffery Hosier, Code 588; Steve Maher, 
Code 935; Drew Jones, Code 543; Scott Gordon, Code 542; Debbie Wheeler, Code 
542; Sandra Irish, Code 542; and Matt Brandt, Code 588. The demonstration went 
well. NASA-GSFC personnel obtained a detailed view of this Phase II effort and were 
able to see and experience DUAL’S Data Visualization Environment Tool (DVET) 
system which was developed under this project. Demonstration briefing slides are 
attached as Appendix A. The following describes key aspects of this demonstration 
and associated trip activities. 

Demonstration Setup - February 16, 1998. Setup for this demonstration involved 
configuring two immersive DVET systems and establishing a local area network (LAN) 
between these systems. The first DVET system was a Windows NT (WinNT) platform 
with a Polhemus InsideTrak headtracker and a Virtual Research V8 Head Mounted 
Display (HMD). The second DVET system was a Silicon Graphics (SGI) 02 System 
with an Ascension Flock of Birds headtracker and a Virtual Research V6 HMD. The 
LAN was established using a network hub. All demonstration equipment, with the 
exception of a monitor for the SGI 02 platform was shipped from DUAL to facilitate 
setup and compatibility between DVET software and immersive demonstration 
hardware. 

Demonstration - February 17, 1998. The following describes significant events and 
comments during the demonstration. After the project was briefed, WinNT DVET and 
SGI DVET were demonstrated. Finite Element Models (FEMs) used for the 
demonstration included NASA’s Next Generation Space Telescope FEM and a NASA 
optical mirror model to ensure the attendees saw DVET used in their engineering 
domain. Demonstration attendees were all given the chance to try DVET and most did 
try the system. 

The following items relating to DVET functionality were discussed. Users thought the 
visual filtering of FEM output data with the DVET interactive color scale was an 
innovative feature. The ability to animate the FEM, while interactively navigating around 
and inside the model received very positive comments. Also, users were impressed 
with the crisp 640x480 HMD resolution of the Virtual Research V8. The DVET “floating” 
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3D toolbox widgets were discussed as opposed to widgets “fixed” to the headtracked 
viewpoint orientation. Benefits of floating menus include the user’s ability to change 
viewpoint and not have a menu display constantly blocking the view of the FEM. 
However, slider and other widgets can be harder to select and manipulate due to 
headtracking movements. On WinNT DVET, the user can address this problem by 
temporarily disabling headtracking to make fine slider widget adjustments. The blue 
text coloring was questioned for legibility, but this was only a problem in the projector 
view of DVET. Users could clearly see text with the Virtual Research V8 and V6 HMDs. 
The blue text coloring is used in the current DVET color scheme so that text is legible 
and does not blend in with the black background or any color scale colors. A faster or 
adjustable “fly mode” speed was requested. A minor problem of one HMD failure was 
addressed by switching the other “back up” HMD between systems. The final 
demonstration also included a limited prototype of a collaborative networked DVET 
running between the two systems, which showed the tremendous potential for DVET 
collaborative enhancements. 

The following were comments on desired directions to take with DVET. The ability to 
use non-immersive stereo shutter glasses is desirable and should be included in DVET 
configurations. The integration of other engineering output with FEA output is 
desirable, including optical paths and thermal output. Audio cues and data sonification 
are desirable. Comments concerning the limited collaborative DVET demonstration 
were very positive. The leader-follower ability to go to another user’s viewpoint is very 
useful. A future architecture of collaborative DVET might need a super server SGI 
“master” linked to multiple remote “slave” subordinate users. The use of web-based 
JAVA was mentioned as a development environment for collaborative visualization, but 
JAVA is currently not integrated with virtual environment software development toolkits 
(SDKs) which have the dynamic functionality that DVET requires. 

There were many suggestions on potential Phase III opportunities to further develop 
and commercialize DVET. John Decker approved submitting an estimate for installing 
a DVET system within Code 542. Mr. Decker also offered assistance in making contact 
with Next Generation Space Telescope (NGST) project team members to explore 
integrating DVET with the NGST design engineering effort. Tim Carnahan and Bill 
Hayden suggested approaching NASA Langley, who is developing the future design 
environment. Bill Hayden is involved with an Integrated Synthesis Vision Team at 
NASA-GSFC which could have future need of immersive tools for high level modeling. 
The opportunity also existing to develop SBIR topics for enhancements to DVET and 
these should be looked on favorably, since they are extending existing successful 
NASA SBIR work. 

The demonstration appeared to be well received. DUAL was able to show the result of 
their NASA Phase II SBIR project and solicit interest from NASA-GSFC in Phase III 
funding opportunities, 

B. DVET FEM Translation Documentation 

Documentation concerning the three FEM translators developed as part of this project 
was completed in Feb 98 and this documentation is attached as Appendix B. The three 
translators are 1) FEMAP to DXF 2) FEMAP to VRML and 3) From FEMAP to DVET. 


4 



The source code concerning these translators is contained in Appendix E, DVET 
Source Code Listings. 

C. DVET System User Guide 

A draft DVET System User Guide has been developed and is attached as Appendix C 
to this report. This system user guide describes the DVET graphical user interfaces 
used for FEM translation and DVET view, data, and visualization interactions. 

D. CAU DVET Software Usability Study 

This study was an evaluation of the usability of the Data Visualization Environment Tool 
(DVET) software. The DVET software presents a graphical representation of a solid 
object model, permits the user to manipulate the object, as well as, load levels and 
threshold values. Data were collected from five engineers to assess the usability of the 
software. The evaluation was performed on the menu tree and the general appearance 
of the graphical interface. Specific recommendations were made based on the findings. 
This study is contained in the Jan 98 monthly report. 

E. Initial DVET Functionality And Capability Document 

An initial description of DVET functionality and capabilities was provided as an 
information and marketing tool. This document also provided a basis for the draft 
DVET User’s Guide. This document is contained in the Jan 98 monthly report. 

F. HCI Questionnaire Input 

This is a documentation of key FEA problem areas and suggestions taken from industry 
engineers (mainly NASA), who have submitted FEA questionnaire feedback. It is 
contained in the Apr 97 monthly report 

G. International Training and Education Conference (ITEC 97) Paper 

A paper concerning the project was accepted for presentation at the International 
Training and Education Conference. This paper, entitled “The Use of Synthetic 
Environments and Visualization for Finite Element Analysis” is contained in the Feb 97 
monthly report. 

H. HTML FEA questionnaire 

An HTML FEA questionnaire was finalized for use in obtaining industry engineer 
feedback. This questionnaire is contained in the Jan 97 report. 

I. Advanced Material Systems Review 

Materials capabilities of NASTRAN and similar FEM application packages were 
reviewed and design features identified that may be added to the specification of the 
DVET system. This analysis is contained in the Dec 96 report. 

J. DVET Software Evaluation using the Quality Function Description Matrix 

An assessment was conducted of the product characteristics of the candidate software 
for use in the DVET testbed, based on a quantitative weighted list of user requirements. 
The basic approach used in this study is that of Quality Function Methodology or House 
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of Quality. This technique is used to assess the key product characteristics against the 
user requirements. This analysis is contained in the Nov 96 report. 

K. HCI Task Analysis Draft Report 

This report provided an overview of the major human-computer interaction issues 
involved in finite element modeling (FEM). An overview of the human-computer 
interaction issues addressed in this report highlight major concerns within reviewed 
FEM programs. These issues should be addressed within any modification of the 
existing programs or any new programs. This analysis is contained in the Sep 96 
report. 

L. Characterization of Critical Activities in the FEA Validation and Interpretation 
(V&l) Process 

This analysis characterized critical activities in the FEA validation and interpretation 
(V&l) process. This strawman characterization received further input at GSFC and from 
other potential DVET users. A description of this initial task analysis characterization is 
contained in the Jun 96 monthly report. 

M. Literature Review 

This review and synthesis included the following research areas: general virtual reality, 
finite element analysis (FE), VE physiological effects, VE simulation & training, virtual 
prototyping / structural design, VE interaction techniques, scientific visualization, VE 
human-computer interaction (HCI), human cognition and perception, and virtual and 
graphical information processing. This review is contained in the Mar 96 through Jul 96 
monthly eports. 

III. PHASE III COMMERCIALIZATION PLANS 
A. Commercialization Strategy 

Commercialization opportunities for DVET are being pursued as a two axis strategy. 

One axis is to win Phase III NASA and other government project funding to install DVET 
at selected government installations, such as NASA-GSFC, and further tailor and 
integrate DVET towards specific project needs. The other axis is to develop DVET 
commercial partnerships and target engineering market areas that are early adopters of 
promising new technology. Now that DVET has transitioned from a concept to actual 
software practice, demonstrations of the product are now being conducted for targeted 
customer leads. The follow sections describe commercialization initiatives by DUAL 
concerning these two areas. 

Government project initiatives 

NASA-Goddard Space Flight Center (GSFC) 

Tim Carnahan requested during the final demonstration that he would like to see a 
DVET installation at NASA-GSFC. He commented that DVET can be a vehicle to spur 
the procurement of VR hardware infrastructure at NASA-GSFC, which is needed to 
purchase VR software and to fit in with Dan Goldin’s vision of using VR to “simulate and 
visualize our engineering processes in real-time with full interactive control.... We can 
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take it a step further... into a high fidelity... high information content... distributed... virtual 
environment” (Tool of the Future Presentation, Jan 1998). As previously mentioned, 
John Decker approved submitting an estimate for installing a DVET system within Code 
542, supporting Tim Carnahan’s request. It was suggested to implement and support a 
three month evaluation period at NASA-GSFC as part of this installation. This would 
enable DVET and engineering virtual reality (VR) in general to receive greater exposure 
at NASA-GSFC. Mr. Decker also offered assistance in making contact with Next 
Generation Space Telescope (NGST) project team members to explore integrating 
DVET with the NGST design engineering effort. Through NASA-GSFC management 
points of contact, DUAL is attempting to demonstrate DVET to NGST project members 
and explore how DVET can address NGST engineering project needs. 

NASA-Johnson Space Center (JSC) 

As part of NASA Inspection ’97 at NASA-JSC, DUAL made initial contact with 
members of the Integrated Design Environment (IDE). This advanced programs project 
has goals of creating an integrated collaborative design environment which makes use 
of advanced visualization and user interaction techniques. A letter was sent to IDE 
team members by Hank Okraski, DVET project director on 18 November 1997, 
forwarding information on DUAL’S Data Visualization Environment Tool (DVET) and 
requested further dialog concerning the possibilities of joining the Integrated Design 
Environment (IDE) team. Unfortunately, it appears from the NASA-JSC response that 
this project’s funding has been delayed for this year: 

Dear Mr. Okraski; 

I appreciate your interest in our HEDS IDE project. However it appears that the IDE 
project we spoke about is not going to be funded this year as cost overruns from the 
International Space Station project are consuming advanced programs funding. 
However if this situation changes I will contact you and schedule a demonstration of 
your capabilities. 

Regards, 

David Fletcher 
Engineer - NASA/JSC 
Advanced Development Office - EX2 
(281) 244-5136 (Phone) 

(281) 244-7478 (FAX) 

However, DUAL will maintain contact with IDE team members and continue to pursue 
this opportunity when project funding becomes available. 

NASA-Marshall Space Flight Center (MSFC) 

Dual and Division, Inc. are teaming to demonstrate DVET to NASA-MSFC personnel 
involved in the High Fidelity Simulation of a Typical Multidisciplinary Device Project. 
Project members have requested a demonstration of DVET/Division software in Mar 98. 
This project’s goals are to develop a capability for a “cutting-edge” high fidelity, cross- 
discipline, real-time simulation for integrated design concepts. The project wants to 
develop or use a simulation architecture which enables dynamic visualization of 
simulation model output, including thermal and stress outputs. Also desired is the 
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ability to navigate “inside” the visualizations. DVET can address these needs. Joe 
Hale, NASA-MSFC has been the main POC for this demonstration coordination. 

NASA-Langley Research Center (LRC) 

DUAL is planning to approach NASA-LRC as suggested by Tim Carnahan and Bill 
Hayden. Langley is developing a future design environment for NASA which could 
potentially make use of DVET immersive engineering concepts. Other relevant 
concepts being investigated are the Smart Assembler, which uses SGI inventor format 
and uses intelligent synthesis. DUAL plans to obtain NASA-LRC future design 
environment points of contact and obtain a letter of introduction from Bill Hayden for 
appropriate Langley personnel. 

Navy/Army Ballistic Effects 

Potential extensions of DVET functionality for live fire testing and training are being 
pursued with U.S. Army and U.S. Navy agencies. Tim Carnahan submitted a letter 
stating the opportunity for live fire testing technology transfer of DVET to Mr. James 
O’Bryon, Office of the Secretary of Defense, Operational Test and Evaluation, Live Fire 
Testing, which is attached as Appendix D. Also, the U.S. Navy has requested a 
description of this concept for potential project integration or SBIR topic use. This Navy 
concept description is shown below: 

TITLE: Visualization of Weapons effects for Training and Test and Evaluation 

OBJECTIVE: Develop a low cost system enabling visualization of weapons effects 
for training, and test and evaluation activities. 

DESCRIPTION: There is a need within the Navy and DOD to develop tools with 
which to model, present, and visualize weapons effects. The ability to navigate 
around, in and through simulated target combat systems would afford engineers a 
unique and powerful analysis tool. Coupled with physics-based models, visualization 
in this manner would provide the user with accurate, perceptible displays of 
information not readily understood in raw data format. 

In distributed training and simulation, battlefield casualty predictions are often based 
upon a probability of weapon hit and kill, assigned based upon various forms of 
empirical data or heuristics. Using visualization, this raw data could be converted to 
provide meaningful feedback to planners and warfighter personnel for better 
understanding of system effectiveness concerning tactics and weaponry. 

The Navy desires to develop an ability for a person to observe, from any aspect 
angle, the effects of a weapon impact on a ship, aircraft, or land based target. The 
visualization can be outside or within the target as desired by the individual. In this 
manner a person can observe the penetration of the weapon, the fragmentation, 
stress and heat distribution, and be able to assess the damage to the equipment 
and personnel. 

Both Army and Navy live fire testing opportunities are being pursued and could result in 
funded work to extend DVET. 
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Commercial initiatives 

Southern Technology Applications Center (STAC) 

In Feb 98, DUAL met with Dave Sapuppo, Area Director with STAC. STAC has 
capability and experience in transferring federal, university, and private sector 
technologies to successful commercial products. Dave was given a briefing and 
demonstration of DVET and made the following significant comments during the 
meeting. 

• It is typical for slow progress in commercialization of innovative technology until the 
product is able to be demonstrated or “reduced to practice.” Then 
commercialization initiatives advance faster due to the customer’s ability to see and 
evaluate the product in their own domain. It appears that DVET is just now being 
“reduced to practice” and is at a critical juncture for commercialization. 

• Timing is everything. Avoid “hyping” the product before the product is ready. 
Otherwise, the product will disappoint and not meet expectations. 

• Industry is looking for “faster, better, cheaper” engineering solutions and asks what 
is their return on investment (ROE) for purchasing tools, such as DVET. 

• STAC can provide services for commercial product assessment of DVET, including 
target customer feedback from a good sampling of market segment and reaction to 
price points for product configurations. 

• STAC can also help in identifying target users. One potential market segment is the 
rapid prototype service business who are typically “early adopters” of innovative 
tools to sell their service and more effectively conduct service tasks, such as FEA. 

STAC is going to provide an estimate on commercialization services. DUAL’S priorities 
for commercialization services include identifying market segments and target users 
which have good potential for using DVET and obtaining potential customer feedback 
on DVET in terms of strengths, weaknesses, and desired improvements. 

Academic Institutions 

Both the University of Central Florida (UCF) and Clark-Atlanta University (CAU) have 
shown interest in further use of DVET for educational use. DUAL will investigate 
options with UCF and CAU, if desired, for installation and support of commercial DVET 
at these universities for integration into FEA curricula. A cost effective strategy for 
these institutions will be pursued as collaborative team members, with discounts for 
academic pricing. 

Division, Inc. 

After a DVET demonstration and meeting with Division, Inc. in Nov 97, there was strong 
interest from Division sales personnel, including Will Siembor, Vice President, Eastern 
Area to explore commercialization of DVET FEM translators for use in Division releases 
and in potential teaming with Ansys, Inc. on Virtual FEM visualization. Division and 
Ansys could give DUAL access to the automotive design industry, where both 
companies are established. DUAL has supplied an initial video to Alan Barclay, 
Southeast Regional Sales Manager and is planning a DVET non- immersive 
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demonstration to include in Division’s software promotions. A meeting with DUAL, 
Division and Ansys is still being pursued to discuss potential partnerships. 

Other FEA-related Software Companies 

DUAL is investigating relationships with other established FEA companies (e.g., MSC) 
to use DVET as an immersive FEA module. Also, DUAL is investigating licensing and 
partnering issues with Enterprise Software, Inc. - makers of FEMAP software, since 
DVET currently uses the FEMAP neutral file format for FEM translation. The licensing 
of FEMAP converters from other FEM formats to FEMAP neutral file format is being 
investigated as well as partnering to obtain early release information on future file 
format changes. 

An early Phase II initiative to team with Engineering Animation, Inc. (EAI) which showed 
early promise was not realized. Apparently, EAI did not want to conduct immersive 
engineering development as an early enabler of this technology without proven 
commercial success. 

B. DVET Product Dissemination Activities 
Phase II DVET Dissemination Activites 

An incremental strategy of disseminating DVET concepts and demonstrating DVET 
functionality was pursued during Phase II with the following visibility highlights: 

International Training and Education Conference (ITEC) 97 - Apr 97 

A paper concerning the project was accepted for presentation at the International 
Training and Education Conference (ITEC) 97. The ITEC 97 paper was presented on 
22 Apr 97 and was well received. This presentation to a simulation and engineering 
audience gave the project some international exposure. 

Paris Air Show - May 97 

As part of a separately funded DUAL marketing plan, DVET Version 1 .0 was 
demonstrated at the Paris Air Show in May 97, along with DUAL aerospace-related 
technologies. As a result of this exposure, DUAL received some further requests for 
information concerning DVET development. These contacts were relayed to the DUAL 
project director and principal investigator. 

UCF FEA Visualization Short Courses - 

Two short course workshops were held which taught FEA and VE basics. The target 
participants in these short courses were industry designers who were not experts in FE. 
The intent of these workshops was to introduce DVET concepts and receive industry 
feedback on these concepts and DVET prototypes. The first short course was held on 
1 1 Oct 96 which covered DVET design concepts, but could not include an actual DVET 
demonstration. The second workshop on finite element visualization using VR was held 
on 1 1 Jul 97. The workshop was attended by seven engineers from industry and 
academia, including representation from the United Space Alliance, Westinghouse 
Power Generation, and UCF faculty. The current prototype of DVET on the DUAL 
Windows NT platform was demonstrated and used by workshop participants in a non- 
immersive mode. Also, static FEM models were translated into DXF format and 
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immersively presented using Sense8 WorldToolKit on Windows NT with DUAL’S Virtual 
Research V6 Head Mounted Display and Polhemus InsideTrak headtracker. 

Comments from participants in both short courses were very positive, with all 
participants rating the potential of virtual environments in FEA as high. Feedback on 
DVET from these industry and academic engineers was used throughout the Phase II 
prototype development process 

NASA Inspection ’97 - Nov 97 

During NASA’s Inspection ’97 (12-14 Nov 97), DUAL showcased the Integrated Data 
Visualization and Virtual Reality Tool project in Bldg. 2 at Johnson Space Center. 
Building 2 contained technology demonstrations from other NASA centers, including 
GSFC, and associated contractors. DVET on the WinNT platform was immersively 
demonstrated and received great interest over the three days. Don Friedman, GSFC 
SBIR Office, was able to see the system during this period. 

Planned Phase III DVET Marketing Outlets 

The following marketing outlets are planned as part of Phase III commercialization. 

A DUAL DVET internet site, linked through the DUAL home page and other appropriate 
agencies and search engines, will provide the latest information on DVET releases, 
features, and contact information for ordering and pricing inquiries. 

Hank Okraski, DUAL’S project director for this SBIR, is also Chairman of the Board of 
Directors for the National Center for Simulation. DUAL will make the DVET product 
known to members of this organization, which contains about 100 members from 
industry, academia, and government. 

STAC has the ability to maintain and disseminate DVET information as part of their 
federal technology transfer mission. STAC marketing techniques include electronic and 
paper media. 

For qualified opportunities, DVET systems will be shown at engineering-related 
demonstrations, including engineering trade shows and research venues. 

C. DVET Return on Investment (ROE) Justifications 

Potential industry and government customers of DVET are concerned primarily with 
where the return on investment (ROE) is in using DVET over existing FEA visualization 
systems. The following list provides some initial rationale for ROE using DVET version 
2 . 0 : 

• Ease of use - In user testing at CAU, all participants found the software to be 
relatively easy to learn and use. The toolbox widgets were simple to understand 
and were easy to manipulation with the mouse interface. 

• More efficient detection of critical FEM output in complex models - In user testing at 
CAU, all participants were able to identify critical FEA output regions directly on the 
geometry with very little difficulty. This is due in part to the interactive set of 
visualization tools in DVET, which include a unique visual filtering capability. Users 
can visually filter out non-critical node and element geometry and just focus on 
critical element locations and associated textual information. 
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• More efficient, intuitive navigation - Due to the combination of orientation 
headtracking and mouse navigation, the user is able to more efficiently conduct 
exploratory navigation of FEMs. Natural headtracked orientation replaces clumsy 
hand manipulation tasks involved in orientation adjustments with non- immersive 
systems. 

• Integrated FEM information display - DVET is an integrated information visualization 
environment with direct manipulation of FEM geometry and direct recall of 
associated output textual information. This reduces the analyst’s cognitive load 
when compare to current analysis systems which force the user to switch between 
separate 2D text and non-immersive 3D graphic screens. 

• Potential for collaborative environments - DVET was designed with future 
collaborative functionality in mind. While already containing limited Local Area 
Network and Wide Area Network functionality, future versions will enable more 
dynamic interactions to be accessible and shared between remote locations. 

D. Initial DVET Product Configurations and Pricing Strategy 

Commercial pricing of a hardware/software system configuration, similar to WinNT 
DVET prototype is projected to be $40K, with computer workstation. Commercial 
pricing of software-only system is projected to be approximately $10K. Initial DVET 
product options are contained in the matrix below and can be configured for customer 
needs. These configurations will be revised based on customer needs and immersive 
VR technology advancements. 


DVET Configuration 
Type 

Typical CPU 
Requirements 

Peripherals 

High End 

(Immersive/Non- 

immersive) 

SGI Octane & above 

WinNT Intergraph 
Workstation 

Virtual Research V8 HMD 

Polhemus InsideTrak 
(WinNT)/Ascension Flock 
of Birds (SGI) 

Crystal Eyes Stereo 
Glasses 

Medium 

(Immersive/Non- 

immersive) 

SGI 02 

WinNT w/ OpenGL 
Graphics Card 

Virtual Research V6 HMD 

Polhemus InsideTrak 
(WinNT)/Ascension Flock 
of Birds (SGI) 

Crystal Eyes Stereo 
Glasses 

Low End (Non- 
Immersive) 

SGI 02 

WinNT w/ OpenGL 
Graphics Card 

Crystal Eyes Stereo 
Glasses 
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Instructional/ 

Multimedia SGI/PC w/ 


Custom DVET FEM 

CD ROM 


visualizations (CD 



Rom) 




E. Potential Marketing Channels 

Potential distribution channels for DVET include one or more of the following options: 

• DUAL directly marketing DVET to customers through an internal or outsourced 
software marketing and sales organization. This marketing could also take the form 
of online internet marketing and distribution with appropriate security protections. 

• DUAL partnering with an established FEA or other software company and using that 
company’s software marketing and sales organization. 

• DUAL licensing DVET software technology to established FEA or other software 
companies to integrated into their existing engineering software products. 

The most viable configuration of marketing channels will be established by DUAL based 
on establishing strategic partnerships with interested government and commercial 
organizations. 

IV. CONCLUSIONS 

The following conclusions are a combination of project feedback from the Contracting 
Officer Technical Representative (COTR), Tim Carnahan during and after the Feb 98 
final demonstration and assessments of project activities by DUAL team members. 
Overall, the project was successful in achieving its objectives. The objectives of the 
project were to: (1) demonstrate the transfer and manipulation of standard engineering 
data in a virtual world (2) demonstrate the effects of design and changes using finite 
element analysis tools (3) determine the training and engineering design and analysis 
effectiveness of the visualization system. As previously stated, these objectives were 
successfully accomplished. Through the development of FEM translators, standard 
FEM data was translated into static and dynamic virtual environment objects. Through 
development of a Data Visualization Environment Tool (DVET) and integration of FEM 
translation software, FEM input and output data was able to be immersively 
manipulated in the virtual world. This virtual world manipulation included viewpoint, 
data, and visualization interactions which provided an intuitive engineering analysis tool 
for FEM interpretation and validation tasks. Through the use of interactive color scale 
and geometry widgets, as well as dynamic animation techniques, the effects of design 
and changes using finite element models were demonstrated. Finally, using human- 
computer interaction analysis and user testing, the training and engineering design and 
analysis effectiveness of the DVET visualization system was assessed. 

This project was intended to be an software investigation and development of virtual 
reality (VR) tools for engineering analysis and was not designed to improve or enhance 
virtual environment hardware peripherals. One drawback of this software development 
focus was having to deal with and adapt to the current generation of virtual reality 
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devices. In the view of project team members and the COTR, the development of cost 
effective VR hardware peripherals is lagging behind in areas including head mounted 
displays and head tracking devices. This, in turn, slows down customer willingness to 
buy into VR systems due to some high cost hardware items. It is hoped that cost 
effective, high resolution VR displays are on the horizon and that organizations, such as 
NASA invest more in VR hardware infrastructure and research upon seeing the 
immersive benefits of systems such as DVET. 

For DUAL, this Phase II SBIR has been the foundation of a research and development 
initiative in visualization and virtual reality, which has already brought dividends in terms 
of subsequent Phase I SBIR awards and other directly funded activities. DUAL looks 
forward to entering into Phase III commercialization of products developed under this 
contract and further research partnerships with NASA. 

V. RECOMMENDATIONS 

The following recommendations are summarized from this project’s final demonstration 
feedback and commercialization analysis at DUAL. 

DUAL will submit an estimate to NASA-GSFC to install the DVET system for evaluation 
and exposure of NASA engineers to an engineering VR tool. DUAL will propose to 
provide technical support and FEM model testing services to NASA to further test DVET 
with NASA models and help ensure successful user interactions with the system. 

DUAL will continue work with VR hardware peripheral manufactures to help drive the 
development of cost effective VR equipment, especially in the area of HMDs. HMD 
requirements for engineering applications which surfaced during this project included 
lighter weight, lower cost, and ability to change the opacity of the view to “see through” 
to the real world at selected times during task performance. 

Project members recommend that NASA build up their immersive VR infrastructure, so 
the NASA director’s vision of immersive engineering design can start being realized. 

Since this project resulted in a successful implementation of an immersive engineering 
tool, it is recommended that DVET be integrated into one or more NASA integrated 
design projects. Final demonstration feedback reinforced this recommendation for 
DUAL (and advocates of DUAL’S technology at NASA) to aggressively market DVET for 
such a project. 

In terms of highest payoff industry commercialization, NASA and other external sources 
have recommended that DUAL continue dialog with FEA software vendors for potential 
partnerships and further develop and refine DVET as a commercial product line for 
industry and academia. 
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DVET FINAL DEMONSTRATION BRIEFING SLIDES 
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Integrated Data Visualization and 
Virtual Reality Tool Project - SBIR Phase II 



NASA Final Demonstration 
17 February 1998 





,juc Atlanta 

iNtvaisrrr 



UCF 


Dual Incorporated, Gark Atlanta University, University of Central Florida 


February 98 



Integrated Data Visualization and 
Virtual Reality Tool Demonstration 
SBIR Phase II 
17 February 1998 


TIM CARNAHAN INTRODUCTION TO DUAL SBIR 

INTEGRATED DATA VISUALIZATION AND VIRTUAL REALITY TOOL PROJECT OVERVIEW 

DATA VISUALIZATION ENVIRONMENT TOOL (DVET) INTRODUCTION 

WIN NT DVET DEMONSTRATION: 

SOLID BEAM STATIC FEM EXAMPLE 
OPTICAL MIRROR STATIC FEM EXAMPLE 

DVET HANDS ON/BREAK 
SGI DVET DEMONSTRATION: 

NEXT GENERATION SPACE TELESCOPE (NGST) DYNAMIC FEM EXAMPLE 
DVET COLLABORATIVE NETWORKING PROTOTYPE DEMONSTRATION 

DVET HANDS ON 

FOLLOW ON PROJECT/COMM ERCIAUZATION OPPORTUNITIES 


Dual Incorporated, Clark Atlanta University, University of Central Florida 


9 : 00 - 9:05 
9 : 05 - 9:15 
9 : 15 - 9:30 
9 : 30 - 10:15 


10 : 15 - 10:45 
10:45 - 11:15 


11 : 15 - 11:45 
11:45 - 12:00 

February 98 
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Demonstration Objectives 

❖ Project Summary 

Demonstration of Dual Inc’s Data Visualization 
Environment Tool (DVET) 2.0 

❖ Hands On Sessions with DVET SGI and WinNT 
Systems 

❖ Commercialization Opportunities and Discussion 

❖ Obtain NASA Feedback 


Dual Incorporated, Clark Atlanta University, University of Central Florida 


February 98 


Project Objectives 


Demonstrate the transfer and manipulation of 
standard engineering data in a virtual world 

❖ Demonstrate the effects of design and changes 
using finite element analysis tools 

❖ Determine the training and engineering design 
and analysis effectiveness of the visualization 
system 


Dual Incorporated, Clark Atlanta University, University of Central Florida 


February 98 
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Project Status 


❖ End of 24 month Phase II SBIR 
Preparing final draft report due 4 March 98 

❖ DVET deliverable due 20 March 98 

❖ Demonstrating DVET 2.0 System and pursuing 
follow-on NASA project and commercialization 
opportunities 


February 98 

Dual Incorporated, Clark Atlanta University, University of Central Florida 

Cross Platform VR Technology Strategy 

❖ Computing Hardware 

♦ DUAL 

* PC Pentium Win NT workstations 

* SGI 02 loaned workstation 

* Plans for SGI Octane to further pursue Phase III 
opportunities 

♦ CAU 

* SGI Crimson Reality Engine 

* Other SGI workstations 

* VR Hardware 

♦ DUAL 

* Virtual Research V6 HMD 

* Virtual Research V8 HMD 

* Polhemus InsideTrak Headtracker 

* Ascension Flock of Birds 

♦ CAU 

* Ascension Flock of Birds 

* Dataglove February 98 

Dual Incorporated, Clark Atlanta University, University of Central Florida 
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Issues in Applying VE to FEA 


Which engineer characteristics 
will influence human-VE 
interaction? 

What are the problem areas 
in current FEA tools which 
can be assisted 
by immersive VE? 

What VE health & 
safety issues will 
affect engineers ? 


What types of input/output 
peripherals will best 
enhance FEA 
task performance? 

Dual Incorporated, Clark Atlanta University, University of Central Florida 



How adaptable should VEs 
be to the engineer ? 


How should engineers 
detect and interact with 
relevant FEM information? 


How should engineers 
navigate in a virtual FEA 
environment? 


What type of analysis scenarios 
will enhance the engineer's 
performance in VE? 

February 98 


Requirements Analysis 

* Visualization 

♦ Dynamic Representation 

♦ Filtering for Entity of Interest 

♦ Annotation 

* Navigation 

♦ Locational Metaphors 

♦ Path Definitions 

* User Interaction 

♦ Multiple User Roles 

♦ Functional Metaphors 

February 98 

Dual Incorporated, Clark Atlanta University, University of Centra] Florida 
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Initial Prototype 


❖ Visualization 

♦ Stress based color mapped static DXF geometry 

♦ Displacement based deformed DXF geometries 

♦ Static colormap 

❖ Navigation 

♦ Orbital scan mode 

♦ Independent user fly mode 

❖ User Interaction 

♦ Immersive Tool Box (GUI) 

♦ No data filtering 


Dual Incorporated, Clark Atlanta University, University of Central Florida 


February 98 


DVET Version 1.0 

* Visualization 

♦ Vertex coloring based on NASTRAN stress data 

♦ Displacement based dynamic geometry 

* Navigation 

♦ Orbital scan mode 

♦ Independent user fly mode 

* User Interaction 

♦ User of Immersive Toolbox (GUI) 

♦ Sliders for data filtering 

♦ Safety Margin and Load Level 

February 98 

Dual Incorporated, Clark Atlanta University, University of Central Flomla 
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Critical FEA Information Detection 



❖ FEM Data Rendering 


« Colored Mesh Detection 
♦ Geometry Detection 


* Use of Transparency 

♦ Highlight Relevant “Domain Semantics” 

♦ Reduces Visual Clutter 

Du a] Incorporated, Clark Atlanta University, University of Central Florida 


FEA VE Navigational Modes 


❖ Types 

♦ Model Navigation 

♦ Analysis Process 



* User Control 

♦ Passive Grand Tour 

♦ Guided Tour 

♦ Total User Control 


Dual Incorporated. Clark Atlanta University, University of Central Florida 
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WIN NT DVET DEMONSTRATION 


-> SOLID BEAM STATIC FEM EXAMPLE 

♦ Views/Navigation 

♦ Data Manipulation 

♦ Visualization 

* NASA OPTICAL MIRROR STATIC FEM EXAMPLE 


Dual Incorporated, Clark Atlanta University, University of Central Florida 


February 98 


DVET 2.0 Views/Navigation 

❖ Interactive horizontal and vertical orbit of FEM 

❖ Preset Home, Left, Right, Back, and Isometric 
Viewpoints 

❖ Navigation modes of fly (default) and 
hyper/instantaneous modes 

❖ Navigation to a close offset distance from the 
currently selected FEM node 

❖ User-defined viewpoints 

❖ Independent user fly mode 

February 98 

Dual Incorporated, Clark Atlanta University, University of Central Florida 
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DVET 2.0 Data Manipulation 


“On the fly” switching between 5 Nodal and 5 
Elemental Sets 
Load Cases 
Constraints 

FEMAP neutral file to DVET 

FEMAP neutral file to DXF (separate program) 

FEMAP neutral file to VRML 1.0 (separate program) 


Dual Incorporated, Clark Atlanta University. University of Central Florida 


February 98 


DVET 2.0 Visualization 

❖ Load Percentage slider control 

❖ Geometry Exaggeration slider control 

❖ Switchable Data Text Display 

❖ Disable/enable headtracking “on the fly” (WinNT) 
*:• Switchable Mesh display 

❖ Dynamic and Static Mesh modes 

❖ Animation of FEM deformations/FEA output data 

❖ Animation Sawtooth and Ramp modes 


Dual Incorporated. Dark Atlanta University, University of Central Florida 


February 98 
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DVET 2.0 Visualization (cont) 


❖ Dynamic FEM element or node coloring based on 
FEA static or modal output data 

❖ Dynamic FEM node geometry based on FEA 
output displacement data 

❖ Interactive color scale for output data 

❖ Extract FEA element/node data using interactive 
pointing 

❖ Color Scale Threshold slider 


Dual Incorporated, Clark Atlanta University, University of Central Florida 


February 98 


Interaction peripheral support 


❖ Immersive Headmounted Display (HMD) 
headtracking orientation and mouse cursor 
translation navigation on SGI and WinNT platform 

❖ Non-immersive 2D mouse navigation interface on 
SGI and WinNT platforms 

❖ Assessments of dataglove and joystick 
interactions conducted 


Dual Incorporated, Gark Atlanta University, University of Central Flonda 


February 98 
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NASA Optical Mirror Static FEM Example 


❖ DVET Hands On/Break 


❖ SGI DVET DEMONSTRATION: 

♦ NEXT GENERATION SPACE TELESCOPE (NGST) 
DYNAMIC FEM EXAMPLE 


February 9R 

Dual Incorporated, Clark Atlanta University, University of Central Florida 

DVET Collaborative Networking Initial 
Prototype Demonstration 

❖ Limited prototype to show DVET potential in this 
area 

* Multiple user manipulation of 

♦ Immersive tools 

♦ Data probe 

♦ Viewpoints 

* Guided wayfinding and data presentation 

❖ Potential for FEA collaborative analysis and 
guided training 

February 98 

Dual Incorporated, Clark Atlanta University, University of Central Florida 
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Key Suggested Phase III DVET 
Extensions 

Stereoscopic viewing 

Collaborative networked DVET over LAN/WAN 

❖ Voice recognition for toolbox commands 

❖ Data sonification for data probe nodal values 

❖ Integration of FEM with CAD, thermal, and optical model outputs 
•> Extend FEM data import capability 

❖ Enhanced additive FEM output (e.g. dx, dy, dz by g factors) 

FEM model displacements influencing CAD model displacements 

February 98 

Dual Incorporated, Clark Atlanta University, University of Central Florida 

Follow On Project/Commercialization 
Opportunities 

* Commercial 

♦ Strong interest from Division, Inc. in developing teaming 
with Ansys 

♦ Possible relationship with Enterprise (FEMAP) 

♦ Pursuing relationships with established FEA companies 
(e.g., MSC) to use DVET as immersive FEA module 

❖ Government 

♦ Demo request from NASA Marshall Integrated 
Simulation Design Project 

♦ Interest from NASA Integrated Design Environment (IDE) 

- (Funding reduced) 

♦ NASA-GSFC Opportunities? 

♦ Pursuing Navy/Army Ballistic Effects DVET extension p 

Dual Incorporated, Clark Atlanta University, University of Central Florida 


A-12 



Discussion/Wrap Up 

Feedback on NASA-GSFC Management Interest for DVET 

VE Visualization Potential 

♦ Dimensional Richness of 3D Attributes 

♦ Interactive, Multi-Sensory Experiential Benefits 

♦ Hardware Performance/Cost Increase 

Engineering VE Is Evolving 

♦ Issues Include Visual HMD Resolution, Cost, Comfort of 
Peripherals, Safety, & User Acceptance 

♦ Potential of Improved Information Processing and Interface 
Navigation for Analysis 

♦ Commercialization Options (Phase III Project Use) for DVET 

February 98 

DuaJ Incorporated, Clark Atlania University, University of Central Florida 
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APPENDIX B - 


DVET FEM TRANSLATION DOCUMENTATION 



INTRODUCTION 


This document highlights the task formally presented to UCF, regarding DVET. The major task for UCF 
has been to write translators converting finite element data, both input and output, to formats which can be 
read by virtual reality systems. We refer to these translators as FEM2VR. The responsibility for using, and 
as needed writing or modifying, virtual reality visualization software and dealing with the human-computer 
interface has resided with Dual Inc and Clark Atlanta University. 


The rationale for this project is very simple. The response of complex structures modeled by finite 
elements is difficult to cope with, in large part because the visual field is so cluttered. Owing to its 
interactive, manipulative, and immersive nature, virtual reality software provides the analyst and designer 
performing finite element analysis with critical additional degrees of freedom, including the position and 
orientation of the viewpoint, lighting, textures, etc. Furthermore, it allows elements to be “turned off’ in 
response to queries, to call the analyst's attention to the most important information such as elements with 
high stresses. We believe that a prototype of system showing such benefits has been developed in this 
project. 

SUMMARY OF ACCOMPLISHMENTS AND POTENTIAL FUTURE WORK 


The source code has been transferred to DUAL on an ongoing basis throughout the project. Three 
translators written by UCF are detailed below: 


From FEMAP to DXF 
From FEMAP to VRML 
From FEMAP to Dvise. 


A number of large structural models were obtained from GSFC and successfully visualized. They included 
a satellite model (HESI), an instrument package (MOLA), and a space telescope model (NGST). Two 
workshops were held at UCF to introduce the evolving system to industry and government engineering, 
with favorable reviews from the participants. 


In the first section below, the translators are described and documented, in addition to comments 
incorporated in the codes. 


FEMAP is a commercial software system, used at GSFC, which can serve as a pre- and post-processor 
for a large number of commercial finite element code, and its file structure is well designed. Comparable 
systems include PATRAN, HYPERMESH, l-DEAS, GEOSTAR and others. Unfortunately, finite element 
data structures are not standardized. However, thanks to their common origin in NASTRAN, they are 
usually very similar. It is believed that the current translators can be extended with modest effort to other 
FEM IO systems. 


One hope that we had throughout is that it would enable FEM visualization via the Internet. For this 
purpose we developed a translator to VRML Ver 2. Unfortunately, the massive amounts of data involved, 
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the file size restrictions of current browsers and the immaturity of the VRML standard do not yet permit 
Internet visualization. 


We believe that the translators have some commercial potential, and would have much more potential if 
extended to more FEM IO systems. We likewise believe that the DVET visualization tool , incorporating the 
translators and the virtual reality system based on Dvise, has commercial potential. Currently, this potential 
is greatest on workstation platforms such as SGI computers. With rapid advances in technology, it should 
likewise have great potential on microcomputer platforms. 


DOCUMENTATION OF TRANSLATORS 


The paragraphs below document three translators developed at UCF as required by the contract with 
DUAL. The source code has been separately transmitted to DUAL on an ongoing basis throughout the 
period of performance, and is extensively commented. 


Three codes NEU_DVISE.CPP, NEU_DXF.CPP, and NEUDXFVRML.CPP have been developed to 
convert the FEM data (including both input and output data) from FEMAP neutral file format to DVISE, 
DXF, and VRML respectively. All these codes are written in C language. In the code, several data arrays 
are generated to store FEM model information such as nodal coordinates, the connectivity table for 
elements, loads, the boundary conditions, as well as output data including various stresses, strains, nodal 
forces, etc. In general, we use several simple two-dimensional triangular elements and quadrilateral 
elements to represent complicated solid elements such as brick elements, wedge elements, etc. In order 
to save memory and enhance rendering speed, internal surfaces between solid elements are filtered under 
the user’s option. In DXF file format, 3DFACE elements are used for shell/plate elements and line 
elements are used for beam/rod/bar elements. In VRML format, commands are used to represent the 
shell/plate elements and beam/bar/rod elements. In the DXF format, colors are used to describe the FEM 
output such as stress values. The colors are associated with layers and layers are attributes of elements. 
Only a very limited number of colors are available in the DXF file format. It is almost impossible to make 
color in the FEM output change smoothly across elements. In VRML format, the color of an element is 
composed of three quantities in the diffusion color array. These quantities can be changed continuously in 
the range of [0,1]. In VRML, the FEM output can be displayed more smoothly across elements than that in 
DXF format. Because of memory size limitation, most current available VRML viewers still are unable to 
handle large FEM models with thousands of polygons. In Dvise, colors can be dynamically interpolated in 
each element. Much better visualization can be realized in Dvise using its very powerful render engine. 


The converters for DXF and VRML are pretty straightforward. Some comments are already written in the 
corresponding C codes. So, they will not be discussed further here. 


The key task for the converter NEU_DVISE is correctly reading FEMAP neutral file and properly arranging 
and storing the data in memory for later visualization. It is necessary for the C code to be reliable for 
different FEM models, different type analysis, different element types, load and boundary condition. The 
current code consists of three different major parts as well as a simple user interface. 


The simple user interface has been upgraded to a graphical user interface. The GUI allows you to enter 
the name of the FEMAP file that is to be modeled. There is also a sequence of more prompt windows the 
request information regarding whether or not to load into memory constraint and load information, the 
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various nodal and elemental output data sets can also be selected, including the mode that should be 
analyzed. A prompt also is displayed asking whether or not to filter the internal surface of the model. 


The first part is designed to read data from the FEMAP neutral file. FEMAP neutral file format consists of 
various data blocks. Each data block has a special ID number. In ASCII format, each data block starts and 
ends by “-1”. Actually only a few data blocks are of interest for our purpose. They are the title block, the 
node information block, the element information block, the load information block, the boundary condition 
block, the element type block, the material block, and the output data block. In the current code, the 
FEMAP neutral file is read twice. The first time is to check the file, to count the numbers of node, 
elements, load sets, etc. and to record the pointers to important data blocks. With the information, 
appropriate memory addresses can be allocated for various data arrays such as element array, node 
array, load array, etc. The second time, the code does not read the whole FEMAP neutral file. It only reads 
the necessary information for visualization purposes by directly starting from the pointers recorded in the 
first time reading. 


The second part of the code filters the internal surfaces from the solid elements. In current VR systems, a 
solid object is represented by its surfaces. So we decompose the solid elements into several surfaces. As 
an example, a 3D brick element can be decomposed into six shell elements to represent its six surfaces. 
For a complicated FEM model, there are several thousand solid elements. For this decomposition, the 
number of surface elements will be increased by a factor of six. Even a very powerful computer is still very 
challenged to handle such a huge numbers of polygons. We set up an option switch. Let the user decide if 
the internal surfaces between solid elements are retained or not. The internal surfaces can be filtered and 
only the elements on the exterior surfaces of the structures or bodies are left when the filter switch is on. 
The algorithm for searching exterior surface elements is based on a very simple fact that an exterior 
element does not share all three (triangle) or four (quadrilateral) nodes with any other element. So we just 
match elements to see if they share the same nodes. If two elements have the same three or four nodes, 
we can set a flag to one, meaning internal surface elements. 


In dVISE, a line is invisible. So for beam/bar/rod elements, we artificially displace both end nodes with very 
small displacements and generate two extra nodes. In this way, we create a four node element for each 
ID element and make it visible in the dVISE system. 


The third part is to sort the data into arrays for convenience for later usage in dVISE and to output the data 
to temporary files for debugging. In the current code, the following data arrays are created. 


struct NODE_DATA 

{ 

long int A; 
double x; 
double y; 
double z; 
double dx; 
double dy; 
double dz; 

double output_data[5]; 
int H; 

} 

In this nodal data structure, the long integer A is the ID number of the node in the original FEMAP model, 
x, y, z, dx, dy, and dz are its global coordinates and displacements. Output_data are quantities from FEM 
analysis results. Here displacements and five nodal output_data are case dependent quantities reflecting 
user selection. The integer H is a flag to indicate if it is an internal node in a solid model. 
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struct ELEMENT_DATA 

{ 

long int A; 
long int B[4]; 
double C[5]; 
int D; 
int E; 

} 


In this element data structure, the long integer A is the ID number of the element in the original FEMAP 
model. Long integer data array B stores the four nodal ID numbers of the element. The real number data 
array C is used to store five sets of elemental output data. Integer D indicates an element property 
number. The flag E is an index. It will be zero for an exterior element and one for an internal element in a 
solid model. 


struct ELEMENT_PROPERTY 

{ 

int A; 
int H; 

double B[1 00]; 

} 

In this element property data structure, integer A is an index for element type such as a triangle element or 
a beam, etc. Integer H is an index for the material ID number. The real number data array B stores the 
properties associated with this element type. The meaning of each data item is defined following the 
definitions in FEMAP manual. 


struct MATERIAL 

{ 

int A; 

char title[25]; 

double Young_Modulus[3]; 
double Shear_Modulus[3]; 
double Poisson_Ratio[3]; 
double GMatrix[21]; 
double alpha[6]; 
double k[6]; 

double thermal_cap, density, damping, temperature; 
double tension Jimit[2]; 
double comp_limit[2]; 
double shearjimit; 

} 

The material data structure consists of the title and the mechanical and thermal properties of the material. 

struct CONSTRAINT 

{ 

int A; 

char B[25]; 
long int NUM; 
fpos_t file_constraint; 
long int *ID; 
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int ‘INDEX; 

} 

The constraint data structure is different from nodal data or element data. The constraint is case 
dependent. The same models may have different constraint sets. In this data array, integer A is the ID 
number. B is string for name of the constraint. The long integer NUM indicates the total number of nodes 
associated with this constraint set. The pointer file_constraint points to the start point of the constraint data 
in the FEMAP neutral file. The long integer pointer ID is used for dynamic allocation of memory to store the 
ID numbers of nodes associated with this constraint set, while the integer pointer INDEX is used for 
dynamic allocation of memory for the constraint type index corresponding to the nodes. 

struct COORDINATE 

{ 

int A; 
int B; 
int C; 

char D[25]; 
double E[3]; 
double F[3]; 

} 

The coordinate system data structure consists of the ID number A (in the original FEMAP file), the ID 
number of the coordinate in which the coordinate system is defined, the index C for the coordinate type, 
the string D for name of the coordinate system, and real number arrays for the origin and rotation related to 
the coordinate system in which it is defined. 


struct LOAD 

{ 

int SETJD; 
char NAME[25]; 
fpos_t load_file, nt_file, et_file; 
long int NUM,NT_NUM,ET_NUM; 
long int *ID,*NT_ID,*ETJD; 
int ‘TYPE, ‘FACE; 

double ‘VALUE, *NT_ VALUE, *ET_VALUE; 

} 

In this load data structure, the SET_ID is the ID number of the load set. The string NAME is the name. 

Loadjile, nt file, and et_file are pointers for the data in the FEMAP neutral file. Load_file points to the load 

start point of vectorial mechanical and thermal load data (except temperature), ntjile to scalar nodal 
temperature, and et_file to scalar elemental temperature in the FEMAP neutral file. NUM, NT_NUM, and 
ET_NUM are the total numbers of vectorial loads, scalar nodal loads and elemental temperatures 
respectively. Pointers ID, NT_ID, and ET_ID point to the locations for storage of nodal IDs for vector loads, 
scalar nodal temperature, and elemental temperature loads. For vectorial mechanical and thermal loads, 
the pointers TYPE and FACE point the locations where the index of the load type and face of element or 
direction of node in which the load is imposed are stored. Finally the pointers VALUE, NT_VALUE, and 
ET_VALUE point to the locations where the load value, nodal temperature, and elemental temperature are 
stored in dynamic memory. 
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Introduction 


This document is intended to provide a detailed explanation of the usage of the functions 
and buttons associated with the Data Visualization Environment Tool (DVET). A step by 
step walkthrough will be shown accompanied with the necessary graphics. The 
documents will be divided into sections: 

1. Graphical User Interface 

2. View Button 

3. Data Button 

4. Visual Button 
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Graphical User Interface 

The Graphical User Interface was developed for the purpose of making it easy to input the 
various information into DVET that was required for it’s operation. 

1 . The first of such prompts requests you provide the name of the FEMAP file to be 
modeled. The file that read in must be in the local directory. If the file entered does 
not exist the prompt will be re-displayed until an existing file is entered. You may 
exit from the system if you choose by selecting the cancel button on this prompt. 



Figure 1 . Prompt requesting FEMAP file name. 


2. The second window prompts for loading of constraint information into memory. 



Figure 2. Load constraint information into memory. 


3. If yes is pressed on the above window another window is displayed prompting for a 
selection of a constraint set. 



Figure 3. Please select a constraint set. 
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4. The next window prompts for loading of load information into memory. 



Figure 4. Load the load information into memory. 


5. If yes is pressed on the above window another window is displayed prompting for a 
selection of a load set. 



Figure 5. Please select a load set. 


6. The next window prompts for a selection of a case number. 



Figure 6. Please select a case number. 
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Figure 7. 5 nodal output data sets has been selected. 



Figure 8. 5 elemental output data sets has been selected. 
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8. The last graphical user interface window prompt that is displayed is the prompt for 
filtering the internal surfaces of the model. If there are no brick elements in the model 
this prompt is not displayed. 



Figure 9. Would you like to filter the internal surfaces? 


The DVET system on the SGI platform uses a command line interface that is parallel in 
functionality to the GUI on the Window NT system. 
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View Button 


The View Button on the DVET system’s toolbox is used to manipulate and position the 
model in select pre-defined view orientations. By selecting the view button an array of 
pre-defined buttons are displayed where one can select a view of choice. The Next 
Generation Space Telescope (NGST) is the model being displayed. 

1. The view button is the top most button on the upper left hand comer of the display 
screen. The button remains visible throughout the duration of the analysis. 




2. Clicking on the view button displays several pre-defined view positions and 
orientations. A quit button is also displayed for exiting out of the view menu. 
Another title button indicates what menu screen is being displayed. 
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Figure 1 1 . Screen after view button is selected. 


C-9 



3. The figure below indicates the motion of the model when HORZ ORBIT is pressed. 
The model rotates once around the Y-axis. 



4. The model rotates to a left view when the LEFT button is pressed. 




5. In a particular instance where one looses his or her orientation in space, one can click 
on HOME to return the model to its initial orientation. 





6. The model rotates to a right view when the RIGHT button is pressed. 






7. The FLY button is selected when a smooth change in view is needed. 







8. The HYPER button is selected when instantaneous change in views is needed. 
Normally used when one is more familiar with the DVET system. 






9. When VERT ORBIT is pressed the model spins a complete rotation in the Z - axis. 




10. ISO-L is pressed. 




1 1. BACK button is pressed. 
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Figure 18. BACK button. 
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12. ISO-R is pressed. 


, guest machinel/O - Data Visualization Envuonment Tool (DVET) 


VIEW 

DATA 




13. By selecting a node on the model, one can press the TO NODE button and the view 
will change to an offset distance away from the selected node. 
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Figure 20. TO NODE button 



14. By selecting the SET VIEW 1 or SET VIEW2 button one can define a view of one’s 
choice to be saved and retrieved by pressing whatever view has been saved. The above 
Figure 20. also indicates the view that is saved by pressing SET VIEW 1 . The figure 
below indicates a second view obtained by selecting another node and pressing TO 
NODE. 
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Figure 21 . A second TO NODE button press. 
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15. Figure 21. Indicates the a second view saved using SET VIEW2. The view below 
shows the view 1 when the button VIEW 1 is pressed. 
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Figure 22. VIEW1 button is pressed displaying a saved view. 
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16. When VIEW2 Button is pressed the saved view 2 is displayed. 


« guest-machinel /0 


3at a Visualization 

Envuonment Tool (DVETJ 

i 

r 

f IEI 

m* 

s 

1 \ 

QUIT 


r 



VIS 



Figure 23. VIEW2 button is pressed displaying a saved view. 
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Data Button 


The Data Button on the DVET system’s toolbox is used to display a menu of data output 
sets, both nodal and elemental. The constraint and load information is also selected from 
the Data Button menu. A Beam model is used to show the operation of the DATA button 
menu. Refer to Figure 7 and Figure 8 for the names of the output data sets being 
displayed. 

1. By selecting the DATA button, Figure 24. is displayed. The QUIT button also is 
displayed in order to exit from the DATA menu. A button with DATA is used to 
show the screen being displayed. 



Figure 24. Initial DATA menu screen. 
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2. In Figure 25. NODE 2 has been pressed notice the difference in output data sets from 
Figure 24. The default output data set is NODE 1 as seen in Figure 24. 



Figure 25. NODE 2. 
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3. NODE 3 pressed. 




If the DATA ON button is pressed under the VIS button menu, when an load data set is 
selected information regarding the load data set is displayed. The information indicates 
the load data set name the case number it is associated with, etc. 
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Figure 26a. NODE 3 with associated data information. 


4. NODE 4 pressed 



Figure 27. NODE 4. 
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5. NODE 5 is pressed. 



Figure 28. NODE 5. 
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6. ELEMENT 1 is pressed. 
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Figure 29. ELEMENT 1. 
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7. ELEMENT 2 is pressed. 


8. ELEMENT 2 is pressed. 




9. ELEMENT 4 is pressed. 


If the DATA ON button is pressed under the VIS button menu, when an output data set is 
selected information regarding the output data set is displayed. The information indicates 
the output data set name the case number it is associated with, etc. 





10. ELEMENT 5 is pressed. 



1 1. By pressing the CONSTRAINT ON button the constraints are selected. Constraints 
are visualized using green spheres. 




Figure 34. Constraints On. 
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12. If the DATA ON button is pressed under the VIS button menu, when a green sphere 
is selected information regarding the constraints is displayed. The information indicates 
the constraint set name, the node where the constraint is applied and the various 
constrained degrees of freedom. 
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Figure 34a. Constraints On with associated data, 
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13. By pressing the CONSTRAINT ON button the constraints are selected. Constraints 
are visualized using green spheres. 



Figure 35. Loads On. 
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14. If the DATA ON button is pressed under the VIS button menu, when a green arrows 
is selected information regarding the load is displayed. The information indicates the 
load set name, the node where the load is applied, the load type and the various 
load/forces at the 6 degrees of freedom. 
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Figure 36. Loads On with associated data. 


VIS Button 


The VIS Button on the DVET system’s toolbox is used to display the visual 
characteristics of a model. An interactive color scale, load level slider. Animation switch, 
etc., are all displayed on this screen. The Next Generation Space Telescope (NGST) is the 
model being displayed. 

1. By selecting the VIS button, Figure 37 is displayed. The QUIT button also is 

displayed in order to exit from the VIS menu. A button with VISUALIZE is used to 
indicate the screen being displayed. 



Figure 37. Initial Visualize Screen. 
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2. When the DATA ON button is pressed, data on various entities is displayed. 
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Figure 38. DATA ON. 


C-41 





3. By pressing the MESH OFF button you can eliminate the mesh on the model. This is 
sometimes useful when trying to view finite sections of the color scale. 



Figure 39. MESH OFF. 


C-42 



4. The START ANIM button is used to start an animation of the model. Geometrical 
and color changes are indicated in the diagram. A capture has been made as the model is 
being animated through the entire color scale. 



Figure 40. START ANIM. 
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5. The RAMP mode is an animation type. It allows the steady upward/forward change 
then it falls back to complete initiation before animation continues. 



Figure 41. RAMP. 
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6. The Sawtooth mode is also part of animation. There is a gradual increase and a 
gradual decrease in the geometry and color of the mode. 




7. The STOP TRKG button allows you to temporarily prohibit tracking form the HMD. 
This is particularly beneficial when trying to stable the model in order to make a 
selection. 
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Figure 43. STOP TRKG. 
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8. The STATIC button allow prevents the model mesh from moving during the 
animation. This permits us the see the change that is happening and to what amount it is 
changing over the initial state of the model 
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Figure 44. STATIC. 
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9. The DYNAMIC button permits the mesh to move in accordance to the animation of 
the model. 



Figure 45. DYNAMIC. 


C-48 



10. Figure 46 shows the highlighted widget ( green diamond ). It is selected using the 
left mouse button and moved using the right mouse button. 



Figure 46. Load Factor 1. 
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11. Figure 47 indicates the final position of the load widget, observe the change in load to 
the model. 
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Figure 47. Load Factor 2. 
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12. Figure 48 shows the highlighted widget ( green diamond ) on the EXAGGERATION 
slider. It is selected using the left mouse button and moved using the right mouse button. 



Figure 48. Exaggeration!. 
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13. Figure 49 indicates the final position of the exaggeration widget, observe the change 
in exaggeration to the model. 



Figure 49. Exaggeration 2. 
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14. Figure 50 shows the highlighted widget ( green diamond ) on the THRESHOLD 
slider. It is selected using the left mouse button and moved using the right mouse button. 
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Figure 50. Threshold 1 . 
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15. Figure 5 1 indicates the final position of the THRESHOLD widget, observe the change 
in threshold to the model. 



Figure 5 1 . Threshold 2. 
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16. Figure 52 shows the initial position and color on the color scale. It is selected using 
the left mouse button and moved using the right mouse button. 



Figure 52. Color Scale 1. 
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17. Figure 51 indicates the final position of the COLOR SCALE widget, observe the 
change in color to the model. 
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Figure 53. Color Scale 2. 
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u*m»m*Tll May 23, 1997 

TO: Office of the Secretary of Defense, Operational Test and Evaluation, Live Fire 

Testing (Attn.: Mr. James F. O’Bryon) 

FROM: 721/Systems Analysis Branch 

SUBJECT: Technology Transfer Opportunity in Data Visualization 

1 . 1 want to bring to your attention work that we are doing in data 
visualization that, I believe, has application to live fire testing within the 
Department of Defense. Of particular note is our Integrated Data Visualization 
and Virtual Reality Tool Project, conducted under a SBIR NASA contract NAS5- 
33215. 

2. This project, currently in the second phase of the SBIR, will allow NASA 
engineers and scientists to visualize complex multidimensional and multivariate 
data in a dynamic virtual environment. The objectives are to demonstrate the 
transfer and manipulation of standard engineering data in a virtual world, 
demonstrate the effects of design changes using finite element analysis tools and 
determine the training and engineering design and analysis effectiveness of the 

visualization system. The virtual reality system will operate on a personal 
computer workstation. 

3. A potential use of 'Jus system for live fire testing and training is described 
as follows: 

An observer is positioned in a simulated vehicle (tank), fully immersed in the 
virtual world through a head-mounted display with full audio and the ability to 
move within and outside the vehicle. Simulated rounds are fired at the vehicle and, 
through enhanced Finite Element Analysis (FEA) visualization tools, the observer 
can witness penetration of the simulated rounds (and fragmentation) and assess the 
damage to the vehicle. 3y slowing down the simulated penetration, the observer 
ha* visual information Including geometry deformations and color-coded data that 
depicts in three dimension structural damage through physics based models. This 
visual information is interactively linked to underlying live fire FEA simulation data 


06-12-199? 18:40 


301 256 0204 


CODE 73 


P.03/03 


bases. Using a joystick, the observer moves within the vehicle to gain different 
perspectives of incoming round penetrations, move outside the vehicle for an 
exterior view and transport to a boundary 1 ' view if desired. Design changes to the 
armor, for example, can be assessed using this system. This data can also be used 
to determine personnel casualties and ultimately survivability of the vehicle for 
further use by the training community. The enclosed figure gives an illustration of 
a sample immersive visualization showing potential live fire effects sustained by an 
Ml Abrams tank turret. Similar to finite element analysis, colored regions can 
indicate simulated effects of external conditions (in this case live fire impact) on a 


structure, which can be immersively explored and interactively linked to the 
underlying data. 


4. I understand that there is an interest in using modeling and simulation to 
support testing and training. This NASA-developed technology will provide a 
unique and cost effective way cf visualizing simulated live fire with some 
modifications. I will be pleased to have our contractor provide you additional 
information on this project and meet with you at your convenience to transfer this 
technology. 
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Timothy M. Carnahan 
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APPENDIX E - 


DVET SOURCE CODE LISTINGS 



DVET source code and executable files for Silicon Graphics Workstation and Windows 
NT Workstation are attached as zipped archives to this draft final report using one 
standard PC floppy disk electronic media. A directory listing for this electronic media are 
shown below: 

Directory of A:\ 

03/30/98 10:40a <DIR> dvetsrc 
1 File(s) 0 bytes 

971,776 bytes free 


Directory of A:\dvetsrc 


03/30/98 10:40a 
03/30/98 10:40a 
03/30/98 10:40a 
03/30/98 10:40a 
4 File(s) 


<DIR> 

<DIR> 

<DIR> sgisrc 

<DIR> winsrc 

0 bytes 

971,776 bytes free 


Directory of A:\dvetsrc\sgisrc 


03/30/98 10:40a 
03/30/98 10:40a 
02/18/98 02:53p 
03/03/98 04:36p 
02/18/98 02:53p 
5 File(s) 


<DIR> 

<DIR> 

2,379 fm2vrll20.h 
150,492 DVETSGI_.C 
79,795 FM2VRSGI.C 
232,666 bytes 
971,776 bytes free 


Directory of A:\dvetsrc\winsrc 


03/30/98 10:40a 
03/30/98 10:40a 
01/21/98 10:01a 
02/26/98 01:50p 
03/03/98 04:36p 
01/16/98 04:47p 
10/23/97 11:43a 
10/23/97 11:17a 
8 File(s) 


<DIR> 

<DIR> 

2,384 fm2vrll20.h 
59,031 FM2VRWIN.C 
161,273 DVETWIN.C 
17,474 Prompts.c 
9,242 inside 1 120.C 
104 inside 1120.h 
249,508 bytes 
971,776 bytes free 
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fit**************** ****** *************** *************************************************’ 

DVET Release 2.2/1 1/98 for SGI Workstation 

dvetsgi.c 

11 February 1998 

Copyright 1998 

Dual Incorporated 

di_add_vertex_color() 

di_animalarm<) 

di_animTimer() 

di_create_body_handler() 

di_det_blocks() 

di_FEM_interact() 

di_input_nodes() 

di_input_mods() 

di_intersect_handler() 

di_modify_FEM() 

di_modify_Mesh() 

di_output_mods() 

di_Pmesh_mesh() 

di_Pmesh_obj() 

di_set_range() 

diBodyMoveToFunc() 

diBodyStartupPosFEMFunc() 

diCreateFEMMeshFunc() 

diCreateObjectFunc() 

diCreateTextFunc() 

diImmersDataFunc() 

diNavModeFunc() 

diOutputSetFunc() 

diSetViewFunc() 

di Toggle AnimFunc() 

diToggleAnimModeFunc() 

diToggleMeshDynFunc() 

AUTHOR: David A. Dryer, Dual Incorporated 

RegisterScaleT oolFunctionsQ 
ResetSIiders_cb() 

SetSliders_cb() 

ToolCreation_cb() 

UpdateSlider_cb() 

UpdateSliderlnfo_cb() 

WidgetCreation_cb() 

Initial CAU prototype integration of dVS/dVISE widgets: Dr. Sriprakash Sarathy, Clark Atlanta University 4/29/97 
DVET modifications and widget additions: Dr. David Dryer, Dual Incorporated 

fem2vr0 

FindEidO 

FindNidO 

Author: Dr. Baojiu Lin, University of Central Florida 

DVET integration and integration modifications: Dr. David Dryer, Dual Incorporated 
****************************************************************************************************/ 

#include <stdio.h> 

#include <ctype.h> 

#include <stdlib.h> 

#include <string.h> 

#include <signal.h> 

#ifdef_UNIX 
#include <unistd.h> 

#endif/* JJNIX *! 

#include <dvs/vc.h> 

#include <dvise/dvise.h> 

//include for FEM2VR translator 
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#include "fm2vrsgi.1T 


#define min(a,b) ((a)<(b)?(a):(b)) 

#define max(a,b) ((a)>(b)?(a):(b)) 

/* PRIVATE STRUCTURES ==============: 

/ * 

* This structure is created by the ’myToolCreation’ function and used 

* to store references to the widgets in the interface. These references 

* are filled in by the ’myWidgetCreation’ function which is called by 

* each widget when it is created. These references allow the values of the 

* widgets to be set by other functions within the interface since this 

* data structure can be accessed via the Toolbox Used Data. 

V 

typedef struct _SliderDataStruct { 

VWidget *LoadFact; 

VWidget *LoadDisp; 

VWidget *ThreshFact; 

VWidget *ThreshDisp; 

VWidget *ExagerFact; 

VWidget *ExagerDisp; 

VWidget *ClrSclTop; 

VWidget *ClrSclTopDisp; 

VWidget *ClrSclBot; 

VWidget *ClrSclBotDisp; 

} SliderDataStruct; 

typedef struct _intersectArgs 

{ 

uint32 *event; 

ECObject * object; 

} intersectArgs; 

typedef struct _MoveInfo { 

VCBody *body; 
dmPoint posa; 
dmPoint posb; 
dmPoint velocity; 
dmPoint bodyOffset; 
float32 time, totalTime; 
int32 active; 

ECStateType state; 

} Movelnfo; 

typedef struct _PmeshInts { 

uint32 noVertices; 
uint32 noVertmesh; 
uint32 noFaces4; 
uint32 noFaces3; 
uint32 rightvert; 
uint32 rightelem; 
uint32 adj index; 

} Pmeshlnts; 


typedef struct _Switches { 


uint32 

navstate; 

uint32 

navmode; 

uin62 

sell ; 

uint32 

set2; 

uint32 

picknode; 

uint32 

meshdynmode; 

uint32 

outtypenum^/O is node type output, 1 is element type output 

uint32 

outsubnum;//node or element subtype index (0-4) in output array 

uint32 

am m mode; 

uint32 

startanim; 

uint32 

loadcasestate; 

uint32 

constraintstate; 

} Switches; 


typedef struct _Points { 
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dmPoint 

FEMcenter; 

dmPoint 

viewl ; 

dmPoint 

view2; 

dmPoint 

rightnodep; 

dmPoint 

loadnodep; 


} Points; 

typedef struct _Floats { 

float32 out_vals[5]; 
float32 out_min; 
float32 out_max; 
float32 absmax; 
float32 threshold; 
float32 scale; 
float32 LoadFactor; 
float32 transp; 
float32 exager; 
float32 curout; 
float32 beamdelta; 
float32 xyzmax; 
float32 clrscltop; 
float32 clrsclbot; 
float32 femsclbotl[3]; 
float32 femsclbotr[3]; 
float32 femscltopr[3]; 
float32 femscltopl[3]; 
float32 alphainmg; 
float32 alphathresh; 
float32 alphaoutmg; 

} Floats; 

typedef struct _Chars { 

char outtxt[200]; 
char scltxt[200]; 

} Chars; 

typedef struct _VCfloats { 

VCColor vcolour; 
VCColor posmaxcolor; 
VCColor posmincolor; 
VCColor negmaxcolor; 
VCColor negmincolor; 
VCColor posthreshcolor; 
VCColor negthreshcolor; 
VCColor outofmgcolor; 

} VCfloats; 

struct NAMES * names ;//malloc 

typedef struct myEntityList { 

VCEntity *nodeobj; 
VCAttribute *vis; 
dmPoint nodepoint; 

// VCVisual *vis; 

struct myEntityList *next; 

} EntityList; 


//_amblksi z= 1 6 3 84 ; 


Pmeshlnts *pmi;//malloc 
Points * points y/malloc 

Switches *switches;//malioc 
Floats * floats ;//malloc 

Chars * chars ;//malloc 

VCfloats *vcfloats;//malloc 

float32 *vertices, *vertmesh;//malloc 

float32 *displaceobj, *displacemesh;//maUoc 

float32 *femsclverts, *femsclgrdverts;//malloc 
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uint32 *connections4, *connections3;//malloc 

uint32 *femsclconts, *femsclgrdconts;//mal]oc 

uint32 *conmesh4, *conmesh3;//malloc 

float32 *outvert;//malloc 

uint32 *elearray;//malIoc 

VCGeometry *femtextstring;//malloc 

VCGeometry *clrscltextstring;//malloc 

VCIntersectionReportData *intersectionReportData;//mal]oc 

uint32 *loadcoordind = NULL; 

uint32 *loaddfind = NULL; 

uint32 *!oadtrack = NULL; 

uint32 *constrcoordind; 

uint32 *constrdfind; 


static VCTime *syncTime=NULL; 
EntityList *LoadList; 

EntityList *ConstrList; 


//VCColour white= {1,1,1} ,gray= {0.5,05,0.5 } ,black={ 0,0,0 } ,red={ 1 ,0,0 } ,yellow={ 1,1,0} ,blue={ 0,0, 1 } ,green= {0,1,0}; 


ECObject *objFEM, *objMesh, *objFEMTexty/malloc 

*objClrScl,*objClrSclGrid,*objClrSdText, 

*objViewButton, *objViewText, 

♦objDataButton, *objDataText, 

♦objVisButton, *objVisText; 

ECObjectReference *objFEMref, *objMeshref, *objFEMTextref,//malloc 

*objClrSclref, *objClrSdGridref,*objClrSclTextref, 
* obj V iewB uttonref, *obj V iewTextref , 

*obj Data Butt on ref, *objDataTextref, 
*objVisButtonref, *objVisTextref; 

II * ************************ ^function prototypes*********************** 3 ***// 

int 

di_create_body_handler(VCBodyCreate_CallbackData *bodyData, void *data); 


Ijif. * ********************* ************ **************** ********* ******* 

// Function; di_det_blocks 

/ft****** ************************************************************ ****/! 


int di_det_blocks() 

{ 

int adj=0; 
int i,j,k; 

int elemindex; 

uint32 *tracknode; 

dmPoint beaml,beam2; 

dm Vector beamvect; 

float32 beamdist; 

pmi=(PmeshInts *)malloc(sizeof(PmeshInts)); 
tracknode=(uint32 *)caIloc(NODE_NUM,sizeof(uint32)); 

pmi->noVertices=NODE_NUM ; 
pmi->noVertrnesh=NODE_NUM; 

for (elemindex=0;elemindex<ELEMENT_NUM;elernindex++) 

{ 

if((ELEMENT_P+elemindex)->A==2) 

{ 

dmPointSet (beaml, 

(NODE_P+((ELEMENT_P+demindex))->B[0])->x, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->y, 

(NODE_P+((ELEMENT_P+elernindex))->B[0])->z); 
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dmPointSet (beam2, 

(NODE_P+((ELEMENT_P+elemindex))*>B[ 1 ])->x, 
(NODE_P+((ELEMENT_P-*-elemindex))->B[l])->y, 
(NODE_P+((ELEMENT_P-Helemindex))->B[l])->z); 

dmPointSub (beamvect, beaml , beam2); 

beamdist=sqrt((beamvect[O]*beamvect[0]Mbeamvect[l ]*beamvect[l])+(beamvect[2]*beamvect[2])); 

if (beamdist > .000000001 ) 

{ 

for (i=0; i<2; i++) 

{ 

if (i=0) 


j=0;k=l; 

} 

else 

{ 

j=3;k=2; 

} 

if (tracknode[((ELEMENT_P+e!emindex)->B[i])] !=1 ) 

( 

tracknode[((ELEMENT_P+elemindex)->B [i] )]= 1 ; 

1 

else 

{ 

pmi->noVertices++; 

} 

pmi->noVertmesh-H-; 

pmi->noVertices++; 

} 

pmi->noFaces4++; 

} 

} 

//If element type is 4 nodes... 

if((ELEMENT_P+elemindex)->A==4) 

{ 

for (i=0; i<4; i++) 

{ 

if (tracknode[((ELEMENT_P+elemindex)->B[i])3 !=1 ) 

{ 

tracknode[((ELEMENT_P+elemindex)->B[i] )]= 1 ; 

) 

else 

{ 

pmi->noVertices++; 

} 

} 

pm i ->noFaces4-H- ; 

} 

//If element type is 3 nodes... 

if((ELEMENT_P+elemindex)->A==3) 

{ 

for (i=0; i<3; i-H-) 

{ 

if ((ELEMENT_P+elemindex)->B[i]=- 1 ) adj=l ; 
if (tracknode[((ELEMENT_P+elemindex)->B[i+adj])3!=l) 

{ 

tracknode[((ELEMENT_P-felemindex)->B[i+adj])]=l ; 

} 

else 

{ 

pmi->noVertices++; 

} 

} 
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adj=0; 

pmi->noFaces3++; 


jj**************************** ************************* ************** ****♦// 

// Function: di_input_nodes 

H ******************************************* * ************** * ************ fj 


int di_input_nodes() 

{ 

int i,j; 

float32 xmax=0.0; 
float32 ymax=0.0; 
float32 zmax=0.0; 
float32 xmin= 10000.0; 
float32 ymin=l 0000.0; 
float32 zmin= 10000.0; 

verti ces= malloc( ( pmi ->no Vertices * 1 ) * si zeo f( fl oat3 2)) ; 

vertmesh=malloc((pmi->no Vertices* 3)* sizeof(float32)); 

displaceobj=malloc((pmi ->no Vertices* 3)* sizeof(float32)); 

displacemesh=malloc((pmi->noVertices*3)*sizeof(fIoat32)); 

loadcoordind=malloc((LOADSET_NUM)*sizeof(uint32)); 

loaddfind=malloc((LOADSET_NUM)*sizeof(uint32)); 

loadtrack=malloc((LOADSET_NUM)*sizeof(uint32)); 

constrcoordind=malloc((CONSTRAINTSET_NUM)*sizeof(uint32)); 

constrdfmd=malloc((CONSTRAINTSET_NUM)*sizeof(uint32)); 

for (i=0;i < NODE_NUM;i++) 

{ 


//Vertex node coordinates - x,y,z assigned to vertices array elements 
//e.g., vertices[0,l,2...7,8,9... 

vertices[(i*7)+0] = ((NODE_P+i)->x)*floats->scale; 
vertices [(i*7)+l]= ((NODE_P+i)->y)*floats->scale; 
vertices [(i*7)+2]= ((NODE_P+i)->z)*floats->scale; 

displaceobj[(i*3)+0]=((NODE_P+i)->dx); 
displaceobj [(i * 3 )+ 1 ] =((N ODE_P+i)->dy) ; 
displaceobj[(i*3)+2]=((NODE_P+i)->dz); 
di sp laceobj [ { i * 3 )+0] * =floats ->scale ; 
displaceobj[(i*3}+ 1 ] *=floats->scale; 
displ aceobj [( i * 3 )+2] * = floats ->sc ale ; 

vertmesh[(i*3)+0] = ((NODEJP+i)->x)*floats->scale; 
vertmesh[(i*3)+l]= ((NODE_P+i)->y)*floats->scale; 
vertmesh [ ( i * 3 )+2]= ((NODE_P+i)->z)*floats->scale; 

displacemesh[(i*3)+0]=((NODE_P+i)->dx); 
displacemesh[(i*3)+l]=((NODE_P+i)->dy); 
displacemesh[(i*3)+2]=((NODE_P+i)->dz); 
displacemesh[(i*3)+0]*=floats->scale; 
displacemesh[(i*3)+l]*=floats->scale; 
displace mesh [ ( i * 3 )+2] *=fl oats ->scale ; 

// get min, max x,y,z values 

xmax=max(xmax,((NODE_P+i)->x)*floats->scale); 

xmin=min(xmin,((NODE_P+i)->x)*floats->scale); 

ymax=max(ymax,((NODE_P+i)->y)*floats->scale); 

ymin=min(ymin,((NODE_P+i)->y)*floats->scale); 

zmax=max(zmax,((NODE_P+i)->z)*floats->scale); 

zmin=min(zrnin,((NODE_P+i)->z)*floats->scale); 

for (j = 0;j < LOADSET_NUM && j < 100;j++) 

{ 

if (LOAD_SET[LOADSET„PICK].TYPE[j] == 0 
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if (LOAD_SET[LOADSET_PICK].lD[jj == (NODE_P+i)->A) 

{ 

Ioadcoordind[j] = i; 
loaddfind[j] =j; 


} 

for (j=0;j<CONSTRAINTSET_NUM;j++) 

if (CONSTRAINT JSET[CONSTRAINTSET_PICK].ID[j] == (NODE_P+i)->A) 

{ 

constrcoordind[j] = i; 
constrdfmd[j] = j; 

) 

} 


} 

//get FEM center point 

points->FEMcenter[VC_X]=xmin+((xmax-xmin)/2.0); 

poinls->FEMcenter[VC_Y]=ymin+((ymax-ymin)/2.0); 

points->FEMcenter[VC_Z]=zmin+((zmax-zmin)/2.0); 

// get max axis length 

if((xmax >= ymax) && (xmax >= zmax)) 

{ 

floats->xyzmax=xmax-xmin; 

} 

else if((ymax >= xmax) && (ymax >= zmax)) 

{ 

floats->xyzmax=ymax-ymin; 

} 

else 

{ 

floats->xyzmax=zmax-zmin; 

} 

return I; 

} 


^******* ******************************************** ********************// 
//Function: di_set_range 

^* ******************************** ******* ***************** **************// 


int di_set_range() 

{ 

uint32 outindex,OUT_NUM; 
floats->out_min= 1 00000; 

floats->out_max--l 00000; 

if (switches->outtypenum==0) 

{ 

OUT_NUM=NODE_NUM; 

for (outindex=0;outindex<OUT_NUM ;outindex++) 

* floats*>out_min=min(floats->out_min,(NODE_P+outindex)->output_data[switches->outsubnum]); 

floats->out_max=max(floats->out_rnax,(NODE_P+outindex)->output_data[switches->outsubnurn]), 

} 

} 

else 

( 

OUT_NUM=ELEMENT_NUM; 

for (outindex=0;outindex<OUT_NUM ;outindex++) 

floats->out_min=min(floats->out_min > (ELEMENT_P-Houtindex)->C[switches->outsubnum)), 

floats->out_max=max(floats->out_max,(ELEMENT_P+outindex)->C[switches->outsubnum]); 
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//initially set threshold here 
floats->out_vals[0]=floats->out_min; 
floats->out_vals[ 1 ] =0.0;//threshold 
floats->out_vals[2]=floats->out_max; 

floats->absmax=rnax(fabs(floats->out_rnin),fabs(floats->out_rnax)); 


return 1; 

} 

^************************* ****************** ****************** ******♦*♦*// 
// Function: di_add_vertex_color - sets vertex colours 
^* ****************************** *********************************** *♦***// 


int di_add_vertex_color(void) 

{ 


//For each curout value, determines if out is positive and in set color region 

if(floats->curout>=0.0 && floats->curout>=floats->out_vals[0] && floats->curout<=floats->out_vals[2]) 

//If positive and in color region, determines if out is under threshold level-assign positive threshold color 
if(floats->curout<floats->threshold*floats->out_max) 

vcfloats->vcolour[0]=vcfloats->posthreshcolor[0]; 
vcfloats-> vcolour[ 1 ]=vcfloats->posthreshcolor[ 1 ] ; 
vcfloats->vcolour[2]=vcfloats->posthreshcolor[2]; 
floats->transp=floats->alphathresh; 

} 

//If positive, in color region, and not under threshold level-assign color 
else 


vcfloats->vcolour[0]=vcfloats->posmincolor[0]+ 

>out_vals[0]))/(floats->out_vals[2]-max(0.0,floats->out_vals[0])))* 

>posmincolor[0]); 

vcfloats->vcolour[ 1 ]=vcfloats->posmincolor[ 1 J+ 
>out_vals[0]))/(floats->out_vals[2]-max(0.0,floats->out_vals[0])))* 
>posmincolor[l]); 

vcfloats->vcolour[2]=vcfloats->posmincolor[2]+ 

>out_vals[0]))/(floats->out_vals[2]-max(0.0,floats->out_vals[0])))* 

>posmincolor[2]); 

floats->transp=floats->alphainmg; 


((floats->curout-max(0,0,floats- 

(vcfloats->posmaxcolor[0]-vcfloats- 

((floats->curout-max(0.0,floats- 
(vcfloats->posmaxcolor[ I ]-vcfloats- 

((floats->curou t -max (0. 0 , floats- 
(vcfloats->posmaxcolor[2] - vcfloats- 


//For each curout value, determines if out is negative and in set color region 

else if(floats->curout<0.0 && fabs(floats->curout)>=floats->out_vals[0] && floats->curout>=floats->out_vals[0]) 

//If negative and in color region, determines if out is above threshold level-assign negative threshold color 
i f( floats ->c urout> floats- >thres hold * fl oats ->ou t_min) 

vcfloats->vcolour[0]=vcfloats->negthreshcolor[0] ; 
vcfloats->vcolour[ 1 ]=vcfloats->negthreshcolor[ 1 ] ; 
vcfloats->vcolour[2]=vcfloats->negthreshcolor[2]; 
floats->transp=floats->alphathresh; 

} 

//If negative, in color region, and not above threshold level-assign color 
else 


vcfloats->vcolour[0]=vcfloats->negmincolor[0]+ 

>curout)/(min(0.0,floats->out_vals[2])-floats->out_vals[0]))* 


((min(0.0,floats->out_vals[2])-floats- 

(vcfloats->negmaxcolor[0]-vcfloats- 


>negmincolor[0]); 

vcfloats->vco!our[ 1 ]=vcf!oats->negmincolor[ 1 ]+ 
>curout)/(min(0.0,floats->out_vals[2])-floats->out_vals[0]))* 


((min(0.0,floats->out_vals[2])-floats- 
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>negmincolor[ 1]); 


(vcfloats->negmaxcolor[ 1 ]-vcfloats- 


vcfloats->vcolour[2]=vcfloats->negmincolor[2]+ 
>curout)/(min(0.0,floats->out_vals[2])-floats->out_vals[0] ))* 


((min(0.0,floats->out_vals[2])-floats- 

(vcfloats->negmaxcoIor[2]-vcfloats- 


>negmincolor[2]); 


} 


floats->transp=floats->alphainmg; 


//For each curout value, determines if curout is out of color scale range - then don't show 
else 


{ 

vcfloats->vcolour[0]=vcfloats->outofmgcolor[0] //black 
vcfloats->vcolour[ 1 ]=vcfloats->outofmgcolor[ 1 ] ; 
vcfloats->vcolour[2]=vcfloats->outofmgcolor[2]; 
floats ->transp=floats->alphaoutmg; 

} 

return 1; 


} 


y/*** ******* ************************************** ***********************// 

// Function: diJnput_mods 

yy* ******* ********** ************************* ************ ****************// 


int di_input_mods() 

{ 

int 

int 

int 

uint32 

dmPoint 

dm Vector beamvect; 

float32 

int 

int 


elemindex; 

adj=0; 

*tracknode; 
beaml ,beam2; 

beamdist; 

cused3=0; 

cused4=0; 


connections4=(uint32 *)malloc((pmi->noFaces4*4)*sizeof(uint32»; 
connections3=(uint32 *)malloc((pmi->noFaces3*3)*sizeof(uint32)); 
conmesh4=(uint32 *)malloc((pmi~>noFaces4*4)*sizeof(uint32)); 
conmesh3=(uint32 *)malloc((pmi->noFaces3*3)*sizeof(uint32)); 
elearray=(uint32 *)malloc(ELEMENT_NUM*5*sizeof(uint32)); 
tracknode=(uint32 *)calloc(NODE_NUM,sizeof(uint32)); 

pmi->noVertices=NODE_NUM;pmi->noVertmesh=NODE_NUM; 

for (elemindex=0;elemindex<ELEMENT_NUM ;elemindex++) 

{ 

if((ELEMENT_P+elemindex)->A==2) 

{ 

dmPointSet (beam 1 , 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->x, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->y, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->z); 


dmPointSet (beam2, 

(NODE_P+((ELEMENT_P+elemindex))->B[ 1 ] )->x, 

(N ODE_P+ ( (ELEMENT_P+elemindex))->B [ 1 ] )->y , 
(NODE_P+((EIJEMENT_P+elemindex))->B[l])->z); 

dmPointSub (beamvect, beaml, beam2); 

b«amdist=sqrt((beamvect[0]*beamvect[0])+(beamvect[l]*beamvect[l])+(beamvect[2]*beamvect[2])); 

if (beamdist > .000000001 ) 

elearray[elemindex*5]=((ELEMENT_P-»-elemindex)->A)+2; 

for (i=0; i<2; i++) 

{ 

if (i==0) 
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( 


j=0;k=l ; 


} 

else 


j=3;k=2; 


if (tracknode[((ELEMENT_P+elemindex)->B [i] )] != 1 ) 

connections4[cused4+j]=((ELEMENT_P+elemindex)->B[i]); 
trackncxle[((ELEMENT_P+elemindex)->B[i])]=l ; 

elearray[(elemindex*5)+(j+ 1 )]=(ELEMENT_P +elemindex)->B [i] ; 


else 

{ 

connections4[cused4+j]=pmi->no Vertices; 
vertices[((pmi- 

>noVertices)*7)+0]=vertices[(((ELEMENT_P+elemindex)->B[i])*7)+0]; 

vertices[((pmi- 

>noVertices)*7)+ 1 ]=vertices[(((ELEMENT_P-f-elemindex)->B [i])*7)+ 1 ] ; 

vertices[((pmi- 

>noVertices)*7)+2]=vertices[(((ELEMENT_P+elemindex)->B[i])*7)+2]; 


displaceobj[(pmi- 

>noVertices*3)+0]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+0]; 

displaceobj[(pmi- 

>noVertices*3)+l]=displaceobj[(((ELEMENT_P-»-elemindex)->B [i])*3)+ 1 ] ; 

displaceobj[(pmi- 

>noVertices*3)+2]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+2]; 

elearray[(elemindex*5)+(j+l)]=pmi->no Vertices; 


pmi->noVertices++; 

} 

conmesh4[cused4+j]=((ELEMENT_P+elemindex)->B[i]); 

conmesh4[cused4+k]=pmi->noVertmesh; 

vertmesh[((pmi- 

>noVertrnesh)*3)+0]=(vertices[(((ELEMENT_P+elemindex)->B[i])*7)+0])+(beaindist/floats->beamdelta); 

vertmesh[((pmi- 

>noVertmesh)*3)+ 1 ]=(vertices[(((ELEMENT_P+elemindex)->B [i])*7)+ 1 ])+(beamdist/floats->beamdelta); 

vertmesh[((pmi- 

>noVertmesh)*3)+2]=(vertices[(((ELEMENT_P+elemindex)->B[i])*7)+2])+(beamdist/floats->beamdelta); 


displacemesh[(pmi- 

>noVertmesh*3)+0]=displacemesh[(((ELEMENT_P+elemindex)->B[i])*3)+0]; 

displacemesh[(pmi- 

>noVertmesh*3)+l ]=displacemesh[(((ELEMENT_P+elemindex)->B[i])*3)-*-l ] ; 

displacemesh[(pmi- 

>noVertmesh*3)+2]=displaceniesh[(((ELEMENT_P+elemindex)->B[i])*3)+2]; 


>B[i])*7)+0]H(beamdist/floats->beamdelta); 
>B [ i] )*7 )+ 1 ] )+( beamdi s t/floats ->beamdelta) ; 
>B[i])*7)+2])+(beamdist/floats->beamdelta); 


connections4[cused4+k]=pmi->noVertices; 

vertices[((pmi->noVertices)*7)+0]=(vertices[(((ELEMENT_P-i-elemindex)- 

vertices[((pmi->noVertices)*7)+l]=(vertices[(((ELEMENT_P-Helemindex)- 

vertices[((pmi->noVertices)*7)+2]=(vertices[(((ELEMENT_P-i-elemindex)- 


displaceobj[(pmi- 

>noVertices*3)+0]=displaceobj[(((ELEMENT_P+elemindex)->B[ij)*3)+0]; 

displaceobj[(pmi- 

>noVertices*3)+l]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+l]; 

displaceobj[(pmi- 

>noVertices^3)+2]=displaceobj[(((ELEMENT_P+elemindex)->B[i]V3)+2]; 

elearray[(elemindex*5)+(k+l)]=pmi->noVertices; 
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pmi->noVertmesh++; 

pmi->noVertices++; 


cused4+=4; 


>B[i])*7]; 

>B[i])*7)+l]; 

>B[i])*7)+2]; 


} 

if((ELEMENT_P+elemindex)->A==4) 

{ 

elearray[elemindex*5)=(ELEMENT_P+elemindex)->A; 

for (i=0; i<4; i++) 

{ 

conmesh4[cused4+i]=((ELEMENT_P+elemindex)->B[i]); 

if (tracknode[((ELEMENT_P-Klemindex)->B[i3)] !=1 ) 

connections4[cused4+i]=((ELEMENT_P+elemindex)->B[i3); 

tracknode[((ELEMENT_P+elemindex)->B[i])]=l; 

elearray[(elemindex*5)+(i+l)]=(ELEMENT_P+elemindex)->B[i]; 

} 

else 

{ 

con necti ons4[ cu sed4+i ] =pmi ->n o V erti ces ; 

vertices [(pmi->noVeitices)*7]=vertices [((ELEMENT_P+elemindex)- 

vertices[((pmi->noVertices)*7)+11=vertices[(((ELEMENT_P-i-eIemindex)- 

vertices[((pmi->noVertices)*7)+2]=vertices[(((ELEMENT_P+elemindex)- 


displaceobj[(pmi- 

>noVertices*3)+0]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+0]; 

displaceobj[(pmi- 

>noVertices*3)+l]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+l]; 

displaceobj[(pmi- 

>noVertices*3)+2]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+2]; 

elearray[(elemindex*5)+(i+l)]=pmi->noVertices; 


pmi->noVertices++; 

} 

) 

cused4+=4; 


if((ELEMENT_P+€lemindex)->A==3) 

{ 

elearray[elemindex*5]=(ELEMENT_P-HeIemindex)->A; 

for (i=0; i<3; i++) 

{ 

if ((ELEMENT_P+elemindex)->B[i]=-l ) adj=l ; 

conmesh3[cused3+i]=((ELEMENT_P+elemindex)->B[i+adj3); 

if (tracknode[((ELEMENT_P+elemindex)->B[i+adj3)) !=1) 

connections3[cused3+i]=((ELEMENT_P+elemindex)->B[i+adj]); 
tracknode[((ELEMENT_P+elemindex)->B[i+adj])3=l ; 

elearray [(elemindex*5)+(i+l )3=(ELEMENT_P+elemindex)->B[i+adj3 ; 

} 

else 

( 

connections3[cused3+i3=pmi->noVertices; 
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>B[i+adj])*7]; 

>B[i+adj])*7)+l]; 

>B[i+adj])*7)+2]; 


vertices[(pmi->noVertices)*7]=vertices[((ELEMENT_P+deniindex)- 

vertices[((prni->noVertices)*7)+l]=vertices[(((ELEMENT_P+elemindex)- 

vertices[((pmi->noVertices)*7)+2)=vertices[(((ELEMENT_P+elemindex)- 


displaceobj[(pmi- 

>noVertices*3)+0]=displaceobj[(((ELEMENT_P+elemindex)->Bti+adj])*3)+0]; 

displaceobj[(pmi- 

>noVertices*3)+l]=displaceobj[(((ELEMENT_P+elemindex)->B[i+adj])*3)+l]; 

displaceobj[(pmi- 

>noVertices*3)+2]=displaceobj[(((ELEMENT_P+elemindex)->B[i+adj])*3)+2]; 

elearray[(elemindex*5)+(i+l)]=pmi->noVertices; 

pmi->noVertices++; 


adj=0; 

cused3+=3; 

} 

return 1 ; 


^y* ************** ************************* *********************** ****** **// 

// Function: dLoutput_mods 

^* ****** ****** ********************************** ******* *****************// 

int di_output_mods() 

{ 

int elemindex; 

int adj=0; 

float32 outtmp; 

int 

uint32 *tracknode; 

dmPoint beaml,beam2; 

dmVector beamvect; 
float32 beamdist; 

outvert=(float32 *)malloc(pmi->noVertices*sizeof(float32)); 
tracknode=( u i nt3 2 *)calloc(NODE_NUM,sizeof(uint32)); 

pmi->noVertices=NODE_NUM; 

for (e]emindex=0;elemindex<ELEMENT_NUM;eiemindex-H-) 

{ 

if((ELEMENT_P+€lemindex)->A=2) 

{ 

dmPointSet (beam 1 , 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->x, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->y, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->z); 

dmPointSet (beam2, 

(NODE_P+((ELEMENT_P+elemindex))->B[ 1 ] )->x, 

(NODE_P+((ELEMENT_P+eIemindex))->B[l])*>y, 

(NODE_P+((ELEMENT_P+elemindex))->B[ 1 ])->z); 
dmPointSub (beamvect, beaml, beam2); 

beamdist=sqrt((beamvect[0]*beamvect[0])+(beamvect[l]*beamvect[l])+(beamvect[2]*beamvect[2])); 

if (beamdist > .000000001 ) 

elearray[elemindex*5]=((ELEMENT_P+elemindex)->A)+2; 

for (i=0; i<2; i++) 

{ 

if (i==0) 

( 
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j=0;k= 1 ; 

} 

else 


( 

} 


j=3;k=2; 


if ( tracknode[((ELEMENT_P-^elemindex)->B [i] )] != 1 ) 

{ 

tracknode[((ELEMENT_P+elemindex)->B[i])]— I ; 


outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i])) 

>outsubnum]; 


if(switches->outtypenum=0) 
->output_data[switches->outsubnum] ; 

else outtmp=(ELEMENT_P+elemindex)->C[switches- 


>vcolour[0] ; 

>vcolour[l]; 

>vcolour[2]; 

>B[i])*7)+6]=max(0.0,min( 1 .0,floats->transp)); 


floats->curout=outtmp; 
dLadd_vertex_color() ; 

vertices[(((ELEMENT_P+elemindex)->B[i])*7)+3]=vcfloats 
vertices[(((ELEMENT_P+elemindex)->B[i])*7)+4]=vcfloats 
vertices [(((ELEMENT_P+elemindex)->B[i])*7)+5]=vcfloats 
vertices[(((ELEMENT_P+elemindex)- 


outvert[((ELEMENT_P+elemindex)->B[i])]=floats->curout; 


else 

{ 

if(switches->outtypenum==0) 

outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i]))->output_data[switches->outsubnum3; 

else outtmp=(ELEMENT_P+elemindex)->C[switches- 

>outsubnum] ; 

floats->curoiit=outtmp; 
di_add_ vertex_color() ; 

vertices[(pmi->noVertices*7)+3]=vcfloats->vcolour[0]; 
vertices[(pmi->noVertices*7)+4]=vcfloats->vcolour[ 1 ] ; 
vertices[(pmi->noVertices*7)+5]=vcfloats->vcolour[2]; 
vertices[(pmi->noVertices*7)+6]=max(0.0,min( 1 .0,floats- 

>transp)); 

ou t vert [ pmi - >n oVerti ces] = floats ->cu rou t ; 


pmi - >n o Verti ces++ ; 


if(switches->outtypenum=0) 

outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i]))->output_data[switches->outsubnum]; 

else outtmp=(ELEMENT_P+elemindex)->C[switches->outsubnum]; 

floats->curout=outtmp; 

di_add_vertex_color(); 

vertices [(( pmi ->noVertices)*7)+3]=vcfloats->vcoIour[0]; 
vertices [((pmi->noVertices)*7)44]=vcfloats->vcolour[ 1 j ; 
vertices[((pmi->noVertices)*7)+5]=vcfloats->vcolour[2]; 
vertices[((pmi->noVertices)*7)+6]=max(0.0,min( 1 .O,floats->transp)); 

outvert[pmi->noVertices]=floats->curout; 

pmi ->noV ertices-H-; 


} 


} 


//If element type is 4 nodes, 

if((ELEMENT_P+elemindex)->A==4) 

{ 
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elearray[elemindex*5]=(ELEMENT_P+elemindex)->A; 


for (i=0; i<4; i++) 

if (tracknode[((ELEMENT_P+demindex)->B[i] )] != 1 ) 

^ tracknode[((ELEMENT_P+elemindex)->B[i])]=l; 

if(switches->outtypenum==0) 

outtmD=(NODE_P+((ELEMENT_P+eiemindex)->B[i]))->output_data[switches->outsubnum3; 

else outtmp=(ELEMENT_P+elemindex)->C[switches->outsubmim] ; 

floats->curout=outtmp; 

di_add_vertex_color(); 

vertices[(((ELEMENT_P+elemindex)->B[i])*7)+3]=vcfloats->vcolour[0]; 
vertices[(((ELEMENT_P+elemindex)->B[i])*7)+4]=vcfloats->vcolour[ 1 ] ; 
vertices[(((ELEMENT_P+elemindex)->B[i])*7)+5]=vcfloats->vcolour[2]; 
vertices[(((ELEMENT_P+elemindex)->B[i])*7)+6]=max(0.0,min(1.0,floats 

>transp)); 

outvert[((ELEMENT_P+elemindex)->B[i])]=floats->curout; 

} 

else 

{ 

if(switches->outtypenum==0) 

outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i]))->output_data[switches-x>utsubnum]; 

else outtmp=(ELEMENT_P+elemindex)->C[switches->outsubnumJ; 

floats ->curout=outtmp; 

di_add_vertex_color(); 

vertices[((pmi->noVertices)*7)+3]=vcfloats->vcolour[0]; 
vertices[((pmi->noVertices)*7)+4]=vcfloats->vcolour[l]; 
vertices [((pmi->noVertices)*7)+5]=vcfloats->vcolour[2]; 
vertices[((pmi'>noVertices)*7)+6]=max(0.0,min(l .0, floats ->transp)); 

outvert[pmi->noVertices]=floats->curout; 



pmi->noVertices++; 


//If element type is 3 nodes, 
if((ELEMENT_P+elemindex)->A==3) 


{ 

for (i=0; i<3; i++) 

^ if ((ELEMENT_P-felemindex)->B[i]=-l) adj=l ; 

if (tracknode[((ELEMENT_P+elemindex)->B[i+adj])] !=1 ) 

1 tracknode[((ELEMENT_P+elemindex)->B [i+adj ])]=!; 


if(switches->outtypenum==0) 

outtmp=(NODE P+((ELEMENT_P+elemindex)->B[i+adj)))->output_dala[swilehes->outsubnum]; 

y “ else outtmp=(ELEMENT_P+elemindex)->C[switches->outsubnum] ; 

floats->curout=outtmp; 

di_add_vertex_color(); 


>vcolour[0]; 

>vcolour[l]; 

>vcolour[2]; 


>B[i+adj])*7)+6]=max(0.0,min(1.0,floats->transp)); 

} 


vertices [(((ELEMENT_P+elemindex)->B[i+adj]) *7 )+3]=vcfloats- 
vertices[(((ELEMENT_P+elemindex)->B[i+adj])*7)44]=vcfloats- 
vertices[(((ELEMENT_P+elemindex)->B[i+adj])*7)+5]=vcfloats- 

vertices[(((ELEMENT_P+elemindex)- 

outvert[((ELEMENT_P+elemindex)->B(i+adj])]=floats->curout; 
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else 


{ 

if(switches~>outtypenum==0) 

outlmp=(NODE_P+((ELEMENT_P+elemindex)->B[i+adj]))->oulpul_data[switches->outsubnum); 

else outtmp=(ELEMENT_P+elemindex)->C[switches->outsubnum]; 

floats->curout=outtmp; 

di_add_vertex_color(); 

vertices [((pmi->noVertices)*7)+3J=vcfloats->vcolour[0]; 
vertices[((pmi->noVertices) : *7)+4]=vcfloats->vcolour[ 1 ] ; 
vertices[((pmi->noVertices)*7)+5]=vcfloats->vcolour[2]; 
vertices[((pmi->noVertices)*7)+6]=max(0.0,min( \ .0, floats ->transp)); 

outvert[pmi->noVertices]=floats->curout; 

pmi->noVertices++; 


adj=0; 

} 

} 

return 1; 


//************************* ******************** **************************// 
//Function: di_Pmesh_obj 

^********** ************************************** ***********************// 
int 

dLPmesh_obj(ECObject ^object) 

{ 

dmPoint reference = { O.Of, O.Of, O.Of }; 

VCDynamic Visual *vc_vis; 

VCLod *vc_lod; 

VCGeogroup *vc_ggrp; 

VCConnectionData cdata[2]; 

VCConnectionList *vc_clist; 
char *mstr; 

int len; 

VCMaterial *material; 

ECVisual ^visual; 

VCAttribute *attribute; 

ECZone *zone; 

VCEntity * entity; 


char 

VCColor 


*objectname; 


ambient={0.7, 0.5, 0.45}; 

VCColor diffused 0.7, 0.5, 0.45 ) ; 

VCColor emmisive={ 0.0,00,0.0}; 

VCColor opacity={0.5,0.5,0.5 } ; 

VCSpecular specular={0.1, 0.1, 0.0, 0.0}; 

VCGeometry *vc __geom; 


objectname=ECObjectGetName(object)7/object and objectname is objFEM) 


l=VCMaterial_Create (mstr. 

// Name 

VC_M ATER 1 AL_EN ABLE, 

Mode 

ambient. 

Ambient 

diffuse. 

Diffuse 

specular. 

Specular 

emmisive. 

Emmisive 

opacity. 

Opacity 



// 

// 

// 

// 

If 

n 
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Texture 


NULL, 


// 

// 

// 


Ramp 
Env. Map 


if (Imaterial) printf( ’Failed to create material ’objMatVT); 


/* Create dynamic visual */ 

vc_vis = VCDynamicVisual_Create(objectname, 0); 


NULL, 

NULL); 


/* Create lod */ 

vc_lod = VCDynamicVisual_AddLod(vc_vis,"#r', 0.0, -1, reference); 

/* Create geogroup */ 

vc_ggrp = VCLod_AddGeogroup(vcJod, VCJVERTEX_RGBA, 

0,0,VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRA\VMODE_SOLID,0, ,, objMat H ,"objMat"); 
cdata[0].type=VC_CONNECT!ONLIST; 
cdata[0] . faceCount=4 ; 

cdata[0].noConnections=pmi->noFaces4; 
cdata[0] data=connections4; 

cdata[ 1 ].type=VC_CONNECT!ONLIST; 
cdata[l].faceCount=3; 

cdata[l].noConnections=pmi->noFaces3; 
cdata[ 1 ] data=connections3 ; 


vc_geom = VCPmesh_Create(VC_VERTEX_RGBA, pmi->noVertices, vertices, 2, cdata); 
if(vc_geom != NULL) 

VCGeogroup_AttachGeometry(vc _ggrp,vc_geom); 

entity = ECObjectGetVCEntity(object); 

visual = ECObjectGetVisual(object, NULL); 

if (visual == NULL) 

{ 

VC_Error(" visual was NULL\n"); 
retum(ECKeepAction); 

} 

attribute = ECVisualGetVCAttribute(visual); 

VCVisual_SetDynamicVisual(attribute,vc_vis); 

// ECVisualSetVCAttribute(visual,attribute); 

// Dryer switched ECVisualSetVCAttribute(vis,att) to ECVisualToVC (obj, vis) below: 

ECVisualToVC (object, visual); 

// ECVisualToVC flushes the information in the ECVisual structure to the dVS database via the VC Attribute 

// referenced in the data structure. If there is no VC attribute assigned to this ECVisual then a VCAttribute(5) is 

// created and assigned to the VCEntity(5) referenced by the ECObject(5). 

// format: int ECVisualToVC (ECObject *o, ECVisual *o); 


ECObjectToVC(object); 

retum(ECKeepAction); 

} 

^♦♦♦*^**^*^ : »e***********»t + ***^>K>l'********* : * ! ************************ :,C ** !,< ** :,C // 

// Function: diCreateFEMObjectFunc - function creates the model in the 3d 
// space. 

^+*****#^** ******* ********** ********************************* **********yy 
int 
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diCreateFEMObjectFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action- parameters; 

ECObject *obj; 

char *varNameFactor; ^Modification factor */ 

char *varFactor; /* Modification factor */ 

int i; 

if(ECArgReferenceGetValue(args[2], (void *)&floats->scale, &data.focus) = VC_ERR) 
floats->scale = 1 .00; 

//BEC moved to main() ucf_fem2vr(); 

di_det_blocks(); 
di_input_nodes(); 
di_set_range(); 
di_input_mods(); 
di_output_mods(); 

objFEMref = (ECObjectReference *)args[l]; 

objFEM = ECReferenceObject(ob]FEMref, &data.focus); 
if(objFEM == NULL) 

{ 

VC_Error( "Could not find objectW); 
retum(ECKeep Action); 

} 

di_Pmesh_obj(objFEM); 

//print f( "di_Pmesh_obj () complete\n " ) ; 

di_modify_FEM(); 

//printf("di_modify_FEM() complete^"); 

} 

H ************************** * ******************************************** // 

II Function: dLmodify_FEM - updates the FEM object after changes. 

H ****** * ********** * **************** *** ****** * ****** * *** ***************** // 

int di_modify_FEM(void) 

{ 


ECVisual *visual; 

VC Attribute *attr; 

VCEntity ^entity; 

VCDynamic Visual *dyn_vis; 

VCLod *dyn_lod; 

VCGeogroup *dyn_geogrp; 

VCGeometry *dyn _geom; 

VCVertex_Reference ref; 
int stat; 

VCDynamicVisual_Traverse traverse 1; 

VCLod_Traverse traverse2; 

VCGeogroup_Traverse traverse3; 
int i, index; 

dmPoint curvertpos; 

char *varNameFactor; /* Modification factor */ 

char *varFactor; ^Modification factor */ 


if(objFEM = NULL) 

{ 

VC_Error( "Could not find object\n"); 
retum(ECKeepAction); 

} 

entity = ECObjectGetVCEntity(objFEM); 


E-18 



identity == NULL) 

I 

VC_Error( "Could not find entity\n"); 
retu m(EC Keep Ac tion ) ; 

} 

visual = ECObjectGetVisual(objFEM, NULL); 
if(visual = NULL) 

{ 

VC_Error( M Could not find visual\n"); 
retum(ECKeepAction); 

} 

attr = ECVisuaJGetVCAttribute( visual); 

ECObjectToVC(objFEM); 

VC Visual_GetDyn amic V i su al( attr, &dyn_vis) ; 

if(dyn__vis = NULL) 

{ 

VC_Error("Could not find dynamic visualW); 
retum(ECKeepAction); 

} 

dynjod = VCDynamicVisual_GetFirstLod(dyn_vis, &traversel); 

dyn_geogrp = VCLod_GetFirstGeogroup(dyn_lod,VC_VERTEX_RGBA,&traverse2); 
dyn_geom = VCGeogroup_GetFirstGeometry(dyn_geogrp,VC_PMESH,&traverse3); 


i=0;index=0; 

stat = VCGeometry_GetFirstVertex(dyn_geom,&reO; 
while (stat = VC_OK) 

curvertpos[0]=vertices[index]+displaceobj[(i*3)+03*floats->LoadFactor*floats->exager; 

curvertpos[l]=vertices[index+l]+displaceobj[(i*3)+l]*floats->LoadFactor*floats->exager, 

curvertpos[2]=vertices[index+2]+displaceobj[(i*3)+2]*floats->LoadFactor*floats->exager; 

floats->curout=outvert[i]*floats->LoadFactor; 
di_add_vertex_color( ) ; 

ref.data[0]=curvertpos[0]; 
ref.data[ 1 ]=curvertpos[ l ] ; 
ref.data[2]=curvertpos[2]; 
ref.data[3]=min(1.0,vcfloats->vcolour[0]); 
ref.data[4]=min(l .O,vcfloats->vcolour[ 1]); 
ref.data[5]=min( 1 .0,vcfloats->vcolour[2]); 
ref.data[6]=max(0.0,min( 1 . 0 , floats ->transp)); 
stat = VCGeometry_GetNextVertex(&ref); 
i++; 

index+=7; 

} 

VCGeometry_Flush(dyn_geom); 

} 

^******************* ************************************** **************// 

// Function: di_Pmesh_mesh 

^******************** ********************************************** *****// 
int 

di_Pmesh_mesh(ECObject ^object) 

< 

dmPoint reference = { O.Of, O.Of, O.Of }; 

VCDynamicVisual *vc_vis; 

VCLod *vc_lod; 

VCGeogroup *vc_ggrp, 

VCConnectionData cdata[2]; 

VCConnectionList *vc_clist; 
char *mstr; 
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int len; 

VCMaterial 

♦material; 

EC Visual 

♦visual; 

VCAttribute 

♦attribute; 

ECZone 

♦zone; 

VCEntity 

♦entity; 

char 

* objectname; 


VCColor emmisi ve={ 0.5,0.5,05 } ;//gray 

VCColour white={ 1,1,1 },black={0,0,0}; 

VCGeometry ♦vc.geom; 

objectname=ECObjectGetName(object) ^/object and objectname is objMesh) 

mstr=dStringFromOptions(NULL, &len, "meshMat", DS_END_OF_OPTIONS); 
material=VCMaterii_Create (mstr, M 

Mode 

// Ambient 

Diffuse 

Specular 

Emmisive 

Opacity 

// Texture 

// Ramp 

// Env. Map 

immaterial) printff Failed to create material ’meshMatW); 


Name 

VC_MATERIAL_ENABLE, // 


black, 

black, // 

black, // 

emmisive, // 

white, // 

NULL, 

NULL, 

NULL); 


/* Create dynamic visual */ 

vc_vis = VCDynamicVisual_Create(objectname, 0); 


/* Create lod */ 

vc_lod = VCDynamic Visual. AddLod(vc_vis,''#r, 0.0, -1, reference); 

/* Create geogroup */ 

vc_ggrp = VCLod_AddGeogroup(vcJod, VC.VERTEX.XYZ, 

0,0, VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRAWMODE_SOL1D,0, "meshMat”, "meshMat"); 

// vc_ggrp = VCLod_AddGeogroup(vc_lod, VC_VERTEX_RGBA, 

0,0,VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRAWMODE_WIREFRAME,0,"meshMat", "meshMat"); 


cdata[0] .type=VC_CONNECTIONLIST; 
cdata[0] .faceCount=4; 

cdata[0].noConnections=pmi->noFaces4; 
cdata[0] .data=conmesh4; 

cdata[l].type=VC_CONNECTIONLIST; 

cdata[ l].faceCount=3 ; 

cdata[ 1 ] .noConnections=pmi->noFaces3 ; 
cdata[ 1 ] .data=conmesh3 ; 


vc_geom = VCPmesh_Create( VC.VERTEX.XYZ, pmi->noVertmesh, vertmesh, 2, cdata); 
if(vc_geom != NULL) 

VCGeogroup_AttachGeometry(vc_ggrp,vc.geom); 
entity = ECObjectGetVCEntity(object); 

visual = ECObjectGetVisual(object, NULL); 
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if (visual == NULL) 

{ 

VC_Error(" visual was NULL\n"); 
retum( ECKeep Action); 

} 


attribute = ECVisualGetVCAttribute(visual); 

VCVisual_SetDynamicVisual(attribute,vc_vis); 

// ECVisualSetVCAttribute(visual, attribute); 

// Dryer switched ECVisualSetVCAttnbute(vis,att) to ECVisualToVC (obj, vis) below: 

ECVisualToVC (object, visual); 

// ECVisualToVC flushes the information in the ECVisual structure to the dVS database via the VC Attribute 

// referenced in the data structure. If there is no VC attribute assigned to this ECVisual then a VCAttribute(5) is 

// created and assigned to the VCEntity(5) referenced by the ECObject(5). 

// format: int ECVisualToVC (ECObject *o, ECVisual *o); 

ECObjectToVC(object); 

retum(ECKeepAction); 

) 

yy **** ************************************************************** *****// 

// Function: diCreateFEMMeshFunc 

yy* ***************************************************** ****** ********* **yy 
int 

diCreateFEMMeshFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

ECObject *obj; 

char *varNameFactor; /* Modification factor */ 

char *varFactor; /* Modification factor */ 

int i; 

if(ECArgReferenceGetValue(args[2], (void *)&floats->scale, &data.focus) = VC_ERR) 
floats->scale = 1 .00; 

objMeshref = (ECObjectReference *)args[l]; 

obj Mesh = ECReferenceObjeet(objMeshref, &data.focus); 

if(objMesh = NULL) 

{ 

VC_Error( "Could not find object\n"); 
retum(ECKeepAction); 

} 

di_Pmesh_mesh(objMesh); 

if (switches->meshdynmode==l) di_modify_Mesh(); 

} 

yy* *************************** ************************** *****************// 

// Function: di_modify_Mesh - updates mesh after a changed has occured. 

yy*** ******* ******************************************** * ****** *♦***♦****// 

int di_modify_Mesh(void) 

{ 


ECVisual *visual; 

VCAttribute *attr; 

VCEntity *entity; 

VCDynamic Visual *dyn_vis; 

VCLod *dyn_lod; 

VCGeogroup *dyn_geogrp; 

VCGeometry *dyn_geom; 

VCVertex_Reference ref; 
int stat; 

VCDynamic Visual_Traverse traverse 1 ; 
VCLod_Traverse traverse2; 
VCGeogroup_Traverse traverse3; 
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int i, index; 

dmPoint curvertpos; 

char *varNameFactor; /* Modification factor */ 

char *varFactor; ^Modification factor */ 


if(objMesh == NULL) 

{ 

VC_ErrorT Could not find objectVn"); 
retum(ECKeep Action); 

} 

entity = ECObjectGetVCEntity(objMesh); 
if(entity == NULL) 

{ 

VC_Error( "Could not find entity\n M ); 
retum(EC Keep Action); 

) 

visual = ECObjectGetVisual(objMesh, NULL); 
if(visual = NULL) 

{ 

VC_ErrorCCould not find visual\n"); 
retum(ECKeepAction); 

} 

attr = ECVisualGetVCAttribute( visual); 

ECObjectTo VC(obj Mesh) ; 

VCVisual_GetDynamicVisual(attr > &dyn_vis); 

if(dyn_vis = NULL) 

{ 

VC_Error( "Could not find dynamic visual\n"); 
retum(EC Keep Action) ; 

} 

dyn_lod = VCDynamicVisuaLGetFirstLod(dyn_vis, &traversel); 

dyn_geogrp = VCLod_GetFirstGeogroup(dyn_lod,VC_VERTEX_XYZ,&traverse2); 

dyn_geom = VCGeogroup_GetFirstGeometry(dyn_geogrp,VC_PMESH,&traverse3); 


i=0;index=0; 

stat = VCGeometry_GetFirstVertex(dyn_geom,&ref); 
while (stat = VC_OK) 

curvertpos[0]=vertmesh[index]+displacemesh[(i*3)+O]*floats->LoadFactor*floats->exager, 

curvertpos [ 1 ]= vertmesh [index+ 1 ] +displacemesh[(i * 3 )+ 1 ] * floats->LoadFactor* floats ->exager; 

curvertpos[2]=vertmesh[index+2]+displacemesh[(i*3)+2]*floats->LoadFactor*floats-:>exager; 

floats->curout=outvert[i]*floats->LoadFactor; 

di_add_vertex_color(); 

ref.data[0]=curvertpos[0] ; 

ref.data[ 1 ]=curvertpos[ 1 ]; 

ref.data[2]=curvertpos[2]; 

stat = VCGeometry_GetNextVertex(&ref); 

i++; 

index+=3; 

) 

VCGeometry_Flush(dyn_geom); 

} 

j^#********************************************* ********************// 

// Function: diCreateFEMTextFunc 

II* * * * *** * * * *** ** * ************* ***** * *********************** * **** ******* *// 
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int 

diCreateFEMTextFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

ECObject *object; 

ECObjectReference *ref; 

dmPoint reference = { O.Of, O.Of, O.Of }; 

VCDynamicVisual *vc_vistext; 

VCLod *vc_lodtext; 

VCGeogroup *vc_ggrptext; 
int32 text_len=200; 

VCEntity *text_ent = NULL; 

char *mstr; 

int len; 

VCMaterial * material ; 

ECVisual * visual; 

VCAttribute *attribute; 

char *textstring= M No Selection"; 

VCColour white={ 1,1,1 },black={0,0,0},blue={0,0,l }; 
dmScale s={0.005, 0.007, 0.007}; 

objFEMTextref = (ECObjectReference *)args[l]; 
objFEMText = ECReferenceObject(objFEMTextref, &data.focus); 

mstr=dStringFromOptions(NULL, &len, "blue", DS_END_OF_OPTIONS); 
material=VCMaterial_Create(mstr, VC_MATERIAL_ENABLE, black, black, black, blue, 

white, NULL, NULL, NULL); 

immaterial) printffText: Failed to create material blue emmissive\n"); 
text_ent=VCEntity_Create(NULL, 0); 
vc_vistext=VCDynamicVisual_Create("text_ent", 0); 

vc_lodtext = VCDynamicVisual_AddLod(vc_vistext,"#r, 0.0, -1, reference); 

vc_ggrptext = VCLod_AddGeogroup(vc_lodtext,VC_VERTEX_XYZ, 

0,0,0, 0,0, "blue", "blue”); 

femtextstring=VCString_CreateSized(textstring, text_len, 0, NULL, NULL, s); 

VCGeogroup_AttachString(vc_ggrptext, femtextstring); 

visual = ECObjectGetVisual(objFEMText, NULL); 
if (visual = NULL) 

{ 

VC_Error(" visual was NULL\n M ); 
retum(ECKeepAction); 

} 

attribute = ECVisualGetVCAttribute(visual); 
VCVisual_SetDynamicVisual(attribute,vc_vistext); 

ECVisualToVC (objFEMText, visual); 

ECObjectToVC(objFEMText); 
retum(ECKeep Action); 


********************* ****************************************** ****♦**// 
// Function; diCreateClrSclTextFunc 

y^* *************** ***************************************************** **// 


int 

diCrcateClrSclTextFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void **args = action->parameters; 

ECObject * object; 

ECObjectReference *ref; 

dmPoint reference = { O.Of, O.Of, O.Of } ; 

VCDynamicVisual *vc_vistext; 

VCLod *vc_lodtext; 

VCGeogroup *vc__ggrptext; 
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int32 text_len=200; 

VCEntity *clrscltext_ent = NULL; 

char *mstr; 

int len; 

VCMaterial * material; 

ECVisual ^visual; 

VCAttribute *attribute; 

char *clrscltextsti^"clrscltextstr"; 

VCColour white={ 1,1,1 } ,black= { 0,0,0 } ,blue= { 0,0, 1 } ; 

dmPoint p= { -0.02, 0.34, -0.01); 

//dmPoint p={ -0.05, 0.305, 0.01 }; 

dmScale s={0.013, 0.030, 0.01 }; 

// dmScale s={0.013, 0.029, 0.01 }; 

objClrSclTextref = (ECObjectReference *)args[l]; 
objClrSclText = ECReferenceObject(objClrSclTextref, &data.focus); 

mstr=dStringFromOptions(NULL, &len, "blue", DS_END_OF_OPTIONS); 
material=VCMaterial_Create(mstr, VC_MATERIAL_ENABLE, black, black, black, blue, 

white, NULL, NULL, NULL); 

immaterial) printffText: Failed to create material blue emmissive\n">; 

clrscltext_ent=VCEntity_Create(NULL, 0); 

vc_vistext=VCDynamicVisual_Create("clrscltext_ent", 0); 

vcjodtext = VCDynamicVisual_AddLod(vc_vistext,"#r, 0.0, -1, reference); 

vc_ggrptext = VCLod_AddGeogroup(vc_lodtext,VC_VERTEX_XYZ, 
0,0,0,0,0,"blue", "blue"); 

clrscltextstring=VCString_CreateSized(clrscltextstr, textjen, 0, p, NULL, s); 
di_updateclrscltxt(); 

VCGeogroup_AttachString(vc_ggrptext, clrscltextstring); 

visual = ECObjectGetVisual(objClrSclText, NULL); 
if (visual = NULL) 

{ 

VC_Error(" visual was NULL\n"); 
retum(ECKeepAction); 

} 

attribute = EC VisualGet VC Attribute( visual); 
VCVisual_SetDynamicVisual(attribute,vc_vistext); 

ECVisualToVC (objClrSclText, visual); 

ECObjectToVC(objClrSclText); 
retum(ECKeep Action); 


//** ******************** ********* ********* *******************************// 
//Function: di_updateclrscltxt 

^************* ************************ ****** ****************** ***♦**♦***// 


int di_updateclrscltxt() 

1 sprintf(chars->scltxt, " % 1 0.6f\n\n %10.6f\n %10.6f\n %IO,6f\n %10.6f\n %10.6f\n %I0.6f\n %10.6f\n %10.6f\n 

%10.6f\n %10.6f\n %10.6f\n\n%10.6f', 

floats->out_vals[2], 

floats->out_min+( 1 .0*(floats->out_max-f1oats->out_min)), 
floats->out_min+(0.9*(floats->out_max-floats->out_min)), 
floats->out_min+(0.8*(floats->out_max-floats->out_min)), 
floats->out_min+(0.7*(floats->out_max-floats->out_min)), 
floats->out_min+(0.6*(floats->out_max-floats->out_min)), 
floats->out_min+(0.5*(floats->out_max-floats->out_min)), 
floats->out_min+(0.4*(floats->out_max-floats->out_min)), 
floats->out_min+(0.3*(floats->out_max-floats->out_min)), 
floats->out_min+(0.2*(floats->out_max-floats->out_min)), 
floats->out_min-K0. 1 *(floats->out_max-floats->out_min)), 
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floats->out_min+(0.0*(floats->out_max-floats->out_min)), 

floats->out_vals[0]); 

VCString_SetText(clrscltextstring,chars->scltxt); 

) 

^* *******************> ********************************** *************** **// 

// Function: diCreateColorSclFunc 

U ** ************************************** ********************* *♦**♦*****// 


int 

diCreateColorSclFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void **args = action->parameters; 

ECObject * object; 

ECObjectReference *ref; 

dmPoint reference = { O.Of, O.Of, O.Of }; 

VCDynamicVisual *vc_vis; 

VCLod *vc_Iod; 

VCGeogroup *vc_ggrp; 

VCConnectionData cdata[l]; 

VCConnectionList *vc_clist; 
char *mstr; 

int len; 

VCMaterial *material; 

ECVisual ^visual; 

* attribute; 

*zone; 

*femscl_ent = NULL; 

ambient={0.7, 0.5, 0.45 }; 

diffused 0.7, 0.5,0.45); 
emmisive=={ 0.0,0. 0,0.0 } ; 
opacity^ { 0.5,0. 5, 0.5 } ; 

specular={0. 1, 0.1, 0.0, 0.0); 
*vc_geom; 


VCAttribute 
ECZone 
VCEntity 
VCColor 

VCColor 
VCColor 
VCColor 
VCSpecular 
VCGeometry 
int i; 

float32 
float32 

dmScale s={0.85, 1.038, t .00}; 


clevel,dlevel,zerolevel ; 
posmincolormod.negmincolormod; 


femsclverts=(float32 *)malloc((24*7)*sizeof(float32)); 
femsclconts=(uint32 *)malloc((6*4)*sizeof(uint32)); 


objClrSclref = (ECObjectReference *)args[l]; 
objClrScl = ECReferenceObject(objClrSclref, &data.focus); 

mstr=dStringFromOptions(NULL, &len, "femsclMat", DS_END_OF_OPT!ONS); 
material VC MateriaLCreate (mstr, // 

Mode 

Ambient 

Diffuse 

Specular 

Emmisive 

Opacity 

// Texture 

// Ramp 

// Env. Map 

if (Imaterial) printfC’Text: Failed to create material ’femsclMat \n"); 
femscl_ent=VCEntity_Create(NULL, 0); 


Name 

VC_MATERIAL_ENABLE, // 


ambient, // 

diffuse, // 

specular, // 

emmisive, // 

opacity, // 

NULL, 

NULL, 

NULL); 
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/* Create dynamic visual */ 
vc_vis = VCDynamicVisual_Create(”femscl_ent", 0); 

// Create lod 

vcjod = VCDynamicVisual_AddLod(vc_vis,’ , #r’, 0.0, -1, reference); 


// Create geogroup 

vc_ggrp = VCLod_AddGeogroup(vc_lod, VC_VERTEX_RGBA, 

0,0,VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRAWMODE_SOLID.O,"femsclMat","femsclMat"); 

// Set geometry 

femsclverts[(0*7)+0]=floats->femsclbotl[0]; 
femsclverts [(0*7)+l ]=floats->femsclbotl[ 1 ] ;//level a 
femsclverts[(0*7)+2]=floats->femsclbotl[2]; 

femscl verts [( 1 *7)+0]=floats->femsclbotr[0] ; 
femsclverts[( 1 *7)+ 1 ]=floats->femsclbotr( 1 ] ;//level a 
femscl verts[( 1 *7)+2]=floats->femsclbotr[2] ; 

femsclverts[(2*7)+01=floats->femscltopr[0]; 

femsclverts[(2*7)+ 1 ]=floats->femscltopr[ 1 ] * floats->clrsclbot ;//level b 
femsclverts[(2*7)+2]=floats->femscltopr(2]; 

femsclverts[(3*7)+01=floats->femscltopl[0]; 

femsclverts[(3*7)+l]=floats->femscltopl[l]*floats->clrsclbot^/level b 
femsclvem[(3*7)+2]=floats->femscltopl[2]; 

for (i=0;i<4;i++) 

femsclverts[(i*7)+3]=vcfloats*>outofmgcolor[0] ; 
femsclverts[(i*7)+4]=vcfloats->outofmgcolor[ 1 ] ; 
femsclverts[(i*7)+5]=vcf]oats->outofmgcolor[2]; 
femsclverts[(i*7)+61=floats->alphaoutmg; 

} 

femscl verts [(4*7 )+0]=floats->femscltopl[0]; 

femsclverts[(4*7)+l]=floats->femscltopl[l]*floats->clrsclbot;//level b 
femsclverts[(4*7)+2]==floats->fernscltopl[2]; 

femsclverts[(5*7)+0]=floats->femscltopr[0]; 

femscl verts[(5*7)+ 1 ]=floats->femscltopr[ 1 ] *floats->clrsclbot;//level b 
femsclverts[(5*7)+2]=floats->femscltopr[2]; 

for (i=4;i<6;i-H-) 

femscl verts [(i* 7 )+3]=vcfl oats ->negmaxcolor[0]; 
femsclverts[(i*7)+4]=vcfloats->negmaxcolor[l]; 
femsclverts[(i*7)+5]=vcfloats->negmaxcolor[2]; 
femsclverts[(i*7)+63=floats->alphainmg-.2; 

1 


if (fioats->out_vals[2]<=0.0)//case 3 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

clevel=max(min(1.0-floats->threshold,floats->clrscltop),floats->clrsclbot); 

//below (commented out) gives a relative threshold percentage of color range 

H clevel=floats->clrscltop-(floats->threshold*(floats->clrscltop-floats->drsclbot)); 

zerolevel=floats->clrscltop ; 
dlevel=floats->clrscltop; 

negmincolormod=(floats->clrscltop-c)evel)/(floats->clrscltop-floats->clrsclbot), 

posmincolormod=0.0; 

} 

else if (floats->out_vals[0]>=0.0)//case 2 


clevel=floats->clrsclbot ; 
zerolevel=floats->clrsclbot ; 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

dlevel=min(max(floats->threshold,floats->clrsclbot),floats->clrscltop); 

//below (commented out) gives a relative threshold percentage of color range 
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// dlevel“floats->clrsclbot+(floats->threshold*(floats->clrscltop-floats->clrsclbot)); 

negmincolormod=0.0; 

posmincolormod=(dlevel-floats->clrsclbot)/(floats->clrscltop-floats->clrsclbot); 


else//case 1 

{ 

zerolevel=fabs(floats->out_min)/(floats->out_max-floats->out„min); 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

clevel=min(max((zerolevel-(floats->threshold*max(zero1eveU .0-zerolevel))),floats- 

>clrsclbot),zerolevel ); 

dlevel=max(min((zerolevel+(floats->threshold*max(zerolevel,l .O-zerolevel))), floats- 

>clrscltop),zerolevel); 

//below (commented out) gives a relative threshold percentage of color range 

U clevel=zerolevel-(floats->threshold*(zerolevel-floats->clrsclbot)); 

// dlevel=zerolevel+(floats->threshold*(floats->clrscltop-zerolevel)); 

negmincolormod=(zerolevel-clevel)/(zerolevel-floats->clrsclbot); 

posmincolormod=(dlevel-zerolevel)/(floats->clrscltop-zerolevel); 

} 


femsclverts[(6*7)+0]=floats->femscltopr[0]; 
femsclverts[(6*7)+ 1 ]=floats->femscltopr[ 1 ] *clevel;//level c 
femsclverts[(6*7)+2]=floats->femscltopr[2]; 

femsclverts[(7*7)+0]=floats->femsc]topl[0]; 
femsclverts[(7*7)+l]=floats->femscltopl[l]*clevel;//level c 
femsclverts[(7*7)+2]=floats->femscltopl[2]; 

for (i=6;i<8;i++) 

< 

femsclverts[(i*7)+3]=vcfloats->negmincolor[0]+ 


>negmincolor[0]); 


ferns cl verts [(i* 7 )+4]=vcfloats->negmincolor[l]+ 


>negmincolor[l]); 


femsclverts[(i*7)+5]=vcfloats->negmincolor[2]+ 


>negmincolor[2]); 


} 


femsclverts[(i*7)+6]=floats->alphainmg-.2; 


femsclverts[(8*7)+0]=floats->femscltopl[0]; 
femsclverts[(8*7)+l]=f1oats->femscltopl[l]*clevel;//level c 
femsclverts[(8*7)+2]=floats->femscltopl[2]; 


femsclverts[(9*7)+0]=floats->femscltopr[0]; 
femsclverts[(9*7)+ 1 ]=floats->femscltopr( 1 ] *c level ;//levei c 
femsclverts[(9*7)+2]=floats->femscltopr[2]; 


negmincolormod* 

(vcfloats->negmaxcolor[0]-vcfloats- 


negmincolormod * 

(vcfloats->negmaxcolor[ 1 ]-vcfloats- 


negmincolormod* 

(vcfloats->negmaxcolor[2]-vcfloats- 


femsclverts[( 1 0*7)+0]=floats->femscltopr[0] ; 

femsclverts[(10*7)+l]=floats->femscltopr[l]*zerolevel;//zerolevel 
femscl verts [( 1 0*7)+2]=floats->femscltopr[2] ; 


femsclverts[( 1 1 *7)+0]=floats->femscltopl[0] ; 

femsclverts[( 1 1 *7 )+ 1 ]=floats->femscltopl [ 1 ] * zero level ;//zeroleve l 

femsclverts[( 1 1 *7)+2]=floats->femscltopl[2]; 


for (i=8;i<12;i++) 

{ 

femsclverts[(i*7)+3]=vcfloats->negthreshcolor[0]; 
femsclverts[(i*7)+4]=vcfloats->negthreshcolor[ 1 ]; 
femscl verts [(i*7)+5]=vcfloats->negthreshcolor[2] ; 
femscl verts[(i*7)+6]=floats->alphathresh; 

} 


femsclverts[( 12*7)+0]=floats->femscltopl[0]; 

femsclverts[( 1 2*7)+ 1 ]=floats->femscltopl[ 1 ] *zerolevel;//zerolevel 
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femsclverts[(l2*7)+2]=floats->femscltopl[2}; 

femsclverts[( 13*7)+0]=floats->femscltopr[0]; 

femsclverts[( 1 3*7)+ 1 ]=floats->femscltopr[ 1 ] *zerol eve l;//ze role vel 

femsclverts[(13*7)+2]=floats->femscltopr[2]; 

femsclverts[(14*7)+0]=floats->femscltopr[0]; 
femsclverts[(14*7)+lj=floats->femscltopr[l]*dlevel//1evel d 
femscl verts[( 1 4*7)+2]=floats->femscltopr{ 2] ; 

femsclverts [( 1 5*7)+0]=dloats->femscltopl [0] ; 
femsclverts[(15*7)+ll=floats->femscltopl[l]*dlevel//level d 
femsclverts[(15*7)+2]~floats->femscltopI[2]; 

for (i=12;i<16;i++) 

{ 

femsclverts [(i*7)+3]=vcfloats->posthreshcolor[0]; 
femsclvem[(i*7)+4]=vcfloats->posthreshcolor[l]; 
femsclverts[(i*7)+5]=vcfloats->posthreshcolor[2]; 
femscl verts [ (i * 7 )+6] =fl oats ->al phath res h ; 

} 


femsclverts [( 1 6*7)+0]=floats->femscltopl[0] ; 
femsclverts[( 1 6*7)+ 1 ]=floats->femscltopl [ 1 ] *dtevel //level d 
femscl verts[( 1 6*7)+2]=floats->femscltopl[2] ; 

femsclverts[(17*7)+0]=floats->femscltopr[0]; 

femsclverts[( 1 7 *7)+ 1 ]=floats->femscltopr[ 1 ] *dlevel //level d 

femsclverts[(17*7)+2]=floats->femscltopr[2]; 


for (i=16;i<18;i++) 

{ 

femsclverts[(i*7)+3]=vcfloats->posmincolor[0]+ 


>posmincolor[0]); 


femsclverts[(i*7)+4]=vcfloats->posmincolor[l]+ 


>posmincolor[l]); 


femsclverts[(i*7)+5]=vcfloats->posmincolor[2]+ 


>posmincolor[2]); 


} 


femsclverts[(i*7)+6]=floats->alphainmg-.2; 


posmincolormod* 
(vcfloats->posmaxcolor[0] -vcfloats 


posmincolormod* 
(vcfloats->posmaxcolor[l] -vcfloats 


posmincolormod* 

( vcfloats->posmaxcolor[ 2] - vcfloats 


femsclverts[(18*7)+0]=floats->femscltopr[0]; 

femsclverts [( 1 8*7)+l ]=floats->femscltopr[ 1 ]*floats->clrscltop//level e 
femsclverts[(18*7)+2]=floats->femscltopr[2]; 


femsclverts[(19*7)+0]=floats->femscltopl[0]; 

femsclverts [(19*7)+ 1 ]=floats->femscltopl [ 1 ] *floats->clrscltop//level e 
femsclverts[( 1 9*7)+2]=floats->femscltopl[2] ; 


for (i=18;i<20;i++) 

{ 

femsclverts[(i*7)+3]=vcfloats->posmaxcolor[0]; 
femsclverts[(i *7)+4] =vcfloats->posmaxcolor[ 1 ) ; 
femsclverts[(i*7)+5]=vcfloats->posmaxcolor[21; 
femsclverts[(i*7)+6]=floats->alphainmg-.2; 

} 

femsclverts[(20*7)+0!=floats->femscltopl[0]; 

femsclverts[(20*7)+l]=floats->femscltopl[l]*floats->clrscltop//level e 
femsclverts [(20*7)+2]=floats->femscltopl [2]; 

femsclverts[(2 1 *7)+0]=floats->femscltopr[0] ; 

femsclverts[(2 1 *7)+ 1 ]=floats->femscltopr[ 1 ] *fl oats- >clrsc l top //level e 
femscl verts[(2 1 *7)+2]=floats->femscltopr[2] ; 
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femsclverts[(22*7)+0]=floats->femscltopr[0]; 
femsclverts{(22*7)+ 1 ]=floats->femscltopr[ 1 ] ;//level f 
femsclverts[(22*7)+2]=floats->femscltopr[2]; 

femsclverts[(23*7)+0]=floats->femscltopl[0]; 
femsclverts[(23*7)+ 1 ]=floats->femscltopl[ t ] J ! level f 
femsclverts[(23*7)+2]=floats->femscltopl[2]; 

for (i=20;i<24;i++) 

{ 

femsclverts[(i*7)+3]=vcfloats->outofrngcolor[0]; 
femscl verts [(i*7)+4]=vcfloats->outofrngcolor[ 1 ] ; 
femsclverts[(i*7)+51==vcfloats->outofrngcolor[2]; 
femscl verts[(i*7)+6]=floats->alphaoutmg; 

} 


for (i=0;i<24;i++) 

{ 

femsclconts[i] = i; 

} 


cdata[0].type=VC_CONNECTIONLIST; 
cdata[0] ,faceCount=4; 

cdata[0].noConnections=6; 

cdata[0].data=femsclconts; 

vc_geom = VCPmesh_Create(VC_VERTEX„RGBA, 24, (VCVertex) femsclverts, 1, cdata); 
if(vc_geom != NULL) 

VCGeogroup_AttachGeometry(vc_ggrp,vc_geom); 

visual = ECObjectGetVisual(objClrScl, NULL); 

if (visual == NULL) 

{ 

VC_Error(" visual was NULL\n"); 
retum(ECKeepAction); 

} 

attribute = ECVisualGetVCAttribute(visual); 

VCVisual_SetDynamicVisual(attribute,vc_vis); 

ECVisualToVC (objClrScl, visual); 

ECObjectToVC(objClrScl); 

retum(EC Keep Action); 

} 

^**************** ************ ************* *********************** ***#***// 

// Function; diCreateColorSclGridFunc 

^* *************** ************************************************** ♦****// 


int 

diCreateColorSclGridFunc(ECEvent ♦event, ECEventData data, ECAction ^action) 

{ 

void **args = actio n->parameters; 

ECObject *object; 

ECObjectReference *ref; 

dmPoint reference = { O.Of, O.Of, O.Of }; 

VCDynamicVisual *vc_vis; 

VCLod *vc_lod; 

VCGeogroup *vc _ggrp; 

VCConnectionData cdata[l]; 

VCConnectionList *vc_clist; 
char *mstr; 

int len; 

VCMaterial * material; 
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ECVisual *visual; 

VCAttribute ^attribute; 

ECZone *zone; 

VCEntity *femsclgrd_ent = NULL; 

VCColor whiter { 1 , 1,1 } ,black= { 0,0,0 } ,grdco1or= { t , 1 , 1 } ; 

VCGeometry *vc_geom; 

int i; 

dmScale s={0.85, 1.038, 1.00}; 

float32 femsclgrdxyz[] = ( 


0 , 0 , 0 , 

.035,0,0, 

.035, .2833*. 1,0, 
0,2833*. 1,0, 
0,.2833*.l ,0, 
.035,.2833*. 1,0, 
.035, .2833*. 2,0, 
0,. 2833*. 2,0, 

0,. 2833*. 2,0, 

.035, .2833*. 2,0, 
.035, .2833*3,0, 
0,. 2833*3,0, 

0,. 2833*3,0, 

.035, .2833*. 3,0, 
.035, .2833 *.4,0, 
0,.2833*.4,0, 
0,.2833*.4,0, 
.035,.2833*.4,0, 
.035, .2833*. 5,0, 
0,.2833*.5,0, 
0,.2833*.5,0, 

.035, .2833*. 5,0, 
.035, .2833*. 6,0, 
0,.2833*.6,0, 

0,. 2833* 6,0, 
.035,.2833*.6,0, 
.035,.2833*.7,0, 
0,.2833*.7,0, 
0,.2833*.7,0, 
.035, .2833*. 7,0, 
.035, .2833*. 8,0, 
0,.2833*. 8,0, 
0,.2833*.8,0, 
.035, .2833*. 8,0, 
.035, .2833*. 9,0, 
0,.2833*.9,0, 

0,. 2833*. 9,0, 
.035, .2833*. 9,0, 
.035, .2833*1.0,0, 
0,.2833* 1.0,0, 


femsclgrdverts=(float32 *)malloc((40*3)*sizeof(float32)); 
femsclgrdconts=(uint32 *)malloc((10*4)*sizeof(uint32)>; 

objClrSclGridref = (ECObjectReference *)args[l]; 
objClrSclGrid = ECReferenceObject(objClrSdGridref, &data.focus); 

mstr=dStringFromOptions(NULL, &len, "femscIgrdMat", DS_END_OF_OPTIONS); 

material VCMaterial_Create(mstr, VC_M ATER IAL_EN AB LE, black, black, black, grdcolor, 
white, NULL, NULL, NULL); 

immaterial) printf("Text: Failed to create material ’femsclgrdMatNn"); 
femsclgrd_ent=VCEntity_Create(NULL, 0); 

// Create dynamic visual 

vc_vis = VCDynamicVisuaLCreateCfemsclgrd.ent”, 0); 

// Create lod 
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vc_lod = VCDynamicVisual_AddLod(vc_vis,"#t", 0.0, -1, reference); 

// Create geogroup 

vc_ggrp = VCLod_AddGeogroup(vc_lod, VC_VERTEX_XYZ, 

0,0,VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRAWMODE_WIREFRAME,0,"femsctgrdMat", "femsclMat”); 

for (i=0;i<40;i++) 

{ 

femsclgrdverts[(i*3)+0]=femsclgrdxyz[(i*3)-K)]; 
femsclgrdverts[(i*3)+l]=femsclgrdxyz[(i*3)+l]; 
femsclgrdverts[(i* 3)+2]=femsclgrdxyz[(i * 3 )+2] ; 

} 

for (i=0;i<40;i++) 

{ 

femsclgrdconts[i] = i; 

} 

cdata[0].type=VC_CONNECTIONLIST; 
cdata[0] ,faceCount=4; 

cdata[0] .noConnections= 10; 
cdata[0] .data=femsclgrdconts; 

vc_geom = V C Pmes h_C reate(VC_VER TEX__X Y Z, 40, (VCVertex) femsclgrd verts, 1, cdata); 
if(vc_geom != NULL) 

V CGeogroup_AttachGeometry ( vc„ggrp, vc_geom) ; 

visual = ECObjectGetVisual(objClrSclGrid, NULL); 

if (visual == NULL) 

{ 

VC_Error( "visual was NULL\n M ); 
re tum(ECKeep Action); 

} 


attribute = ECVisualGetVCAttribute( visual); 

VCVisual_SetDynamicVisual(attribute,vc_vis); 
ECVisualToVC (objClrSclGrid, visual); 
ECObjectSetPosOrScale(objClrSclGrid,NULL,NULL,s); 
ECObjectToVC(objClrSclGrid); 

retum(EC Keep Action); 

} 


yy* ********* *********************************** ************************ **y/ 

// Function: di_modify_ClrScl 

yy* ********* **************************************** *********************// 


int di_modify_ClrScl(void) 

{ 


ECVisual ^visual; 

VC Attribute *attr; 

VCEntity ^entity; 

VCDynamic Visual *dyn_vis; 

VCGeogroup *dyn_geogrp; 

VCLod *dyn_lod; 

VCGeometry *dyn_geom; 

VCVertex„Reference ref; 
int stat; 

VCDynamicVisual_Traverse traverse 1 ; 

VC Lod_Tra verse traverse2; 

V CGeogroup_T ra verse traverse3 ; 

int i, index; 

dmPoint curvertpos; 

char *varNameFactor; /* Modification factor */ 

char *varFactor; ^Modification factor */ 
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float32 clevel,dlevel,zerolevel; 

float32 posmincolormod.negmincolormod; 

dmScale s={0.85, 1.038, \.00}J/DAD 


if(objClrScl == NULL) 

{ 

VC_Error( "Could not find object\n"); 
retum(ECKeep Action); 

} 


entity = ECObjectGetVCEntity(objClrScl); 
identity == NULL) 

{ 

VC_Error( "Could not find entity\n">; 
retum(ECKeepAction); 

} 

visual = ECObjectGetVisual(objClrScl, NULL); 
if(visual = NULL) 

{ 

VC_Error(" Could not find visual\n”>; 
return (EC Keep Action); 

} 

attr = ECVisualGetVCAttribute( visual); 

// ECObjectSetPosOrScale(objClrScl,NULL,NULL,s);//DAD 
ECObjectToVC(objClrScl); 

VCVisual_GetDynamicVisual(attr,&dyn_vis); 

if(dyn_vis = NULL) 

{ 

VC_Error( "Could not find dynamic visualW); 
return (EC Keep Action) ; 

} 

dynjod = VCDynamic Visual j3etFirstLod(dyn_vis, &traversel); 

dyn_geogrp = VCLod_GetFirstGeogroup(dyn_lod,VC_VERTEX_RGBA,&traverse2), 

dyn_geom = VCGeogroup_GetFirstGeometry(dyn_geogrp,VC_PMESH,&traverse3), 

stat = VCGeometry_GetFirstVertex(dyn_georn,&ref) ^/vertex 0 
ref. data[0] =floats->femsclbotl [0] ; 
ref.data[ 1 ]=floats->femsclbotl[ 1 ]; 
ref.data[2]=floats->femsclbotl[2] ; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
refdata[4]=vcfloats->outofmgcolor[ 1 ] ; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 1 
ref data[0]=floats->femsclbotr(0] ; 
ref.data[ 1 ] =floats->femsclbotrf 1 ] ; 
ref.data[2]=floats->femsclbotr[2]; 
ref.data[3]=vcfloats->outofmgcolor[0], 
ref.data[4]=vcfloats->outofmgcolor[l]; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&ref)^/vertex 2 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ] * floats ->clrscIbot ; 
ref. data[2]=floats->femscltopr(2]; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[ 1 ] ; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref data[6]=floats->alphaoutmg; 
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stat = VCGeometry_GetNextVertex(&ref);//vertex 3 
ref.data[0]=floats->femsdtopl[0]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ] *floats->clrsclbot; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[ l ] ; 
ref.data[5]=vcfloats->outofrngcolor[2]; 
ref.data[6]=floats->alphaoutmg; 


stat = VCGeometryj3etNextVertex(&ref);//vertex 4 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ]*floats->cIrsclbot; 
ref.data[23=floats->femscltopl[2]; 
ref.data[3]=vcfloats->negmaxcolor(0); 
ref.data[4]=vcfloats->negmaxcolor[ 1 ] ; 
ref.data[5]=vcfloats->negmaxcolor[2]; 
ref.data[6]=floats->alphainmg-. 2 ; 

stat = VCGeometry_GetNextVertex(&reO;//vertex 5 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ]*floats->clrsclbot; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->negmaxcolor[0]; 
ref.data[4]=vcfloats->negmaxcolor[ 1 ] ; 
ref.data[5]=vcfloats->negmaxcolor[2]; 
ref.data[6]=floats->alphainmg--2; 


if (floats->out_vals[2]<=0.0)//case 3 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

clevel=max(min(l .0-floats->threshold,floats->clrscUop),floats->clrsclbot); 

//below (commented out) gives a relative threshold percentage of color range 

// clevel=floats->clrscltop-(floats->threshold*(floats->clrscltop-floats->clrsclbot)); 

zerole vel- floats->c lrsc ltop ; 
dleveI=floats->clrscltop; 

negmincolormod=(floats->clrscltop-clevel)/(floats->clrscltop-floats->clrsclbot); 

posmincolormod=0.0; 

} 

else if (floats->out__vals[0]>=0.0)//case 2 

{ 

clevel=floats->clrsclbot; 

zerolevel=floats->clrsclbot; 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

dlevel=min(max(floats->threshold,floats->clrsclbot),floats->clrscltop); 

//below (commented out) gives a relative threshold percentage of color range 

// dlevel=floats->clrsclbot+(floats->threshold*(floats->clrscltop-floats->clrsclbot)); 

negmincolormod=0.0; 

posmincolormod=(dlevel-floats->clrsclbot)/(floats->clrscltop-floats->clrsclbot); 

} 

else//case 1 

zerolevel=fabs(floats->out_min)/(floats->out_max-floats->out_min); 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

clevel=min(max((zerolevel-(floats->threshold*max(zerolevel,1.0-zerolevel))),floats- 

>clrsclbot),zerolevel); 

dlevel=max(min((zerolevel+(floats->threshold*max(zerolevel,1.0-zerolevel))), floats- 

>clrscltop), zerole vel ) ; 

//below (commented out) gives a relative threshold percentage of color range 

// clevel=zerolevel-(floats->thresho!d*(zeroleve!-floats->clrsclbot)); 

// dlevel=zerolevel+(floats->threshold*(floats->clrscltop-zerolevel)); 

negmincolormod=(zerolevel-clevel)/(zerolevel-floats->clrsclbot); 

posmincolormod=(dlevel-zerolevel)/(floats->clrscltop-zerolevel); 

} 


stat = VCGeometry_GetNextVertex(&ref);//vertex 6 
ref.data[0]=floats->femscltopr[0], 
ref.data[ l]=floats->femscltopr[l]*clevel; 
ref.data[2]=floats->femscltopr[2]; 
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ref.data[3]=vcfloats->negmincolor[03+ 


>negmincolor{0)); 

ref.data[4]=vcfloats->negmincolor[ 1 ]+ 


>negmincolor[ 1 ]); 

ref.data[5]=vcfloats->negmincolor[2]+ 


>negmincolor[2]); 

ref.data[6]=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex{&re0^vertex 7 
ref.data[0]==floats->femscltopl[0]; 
ref.data[ 1 j=floats->femscltopl[l ]*clevel; 
ref.data[2]=floats->femscltopl[2]; 
ref.data(3]=vcfloats->negmincolor[0]+ 


>negmincolor[0]); 

ref.data[4]=vcfloats->negmincolor[ 1 ]+ 


>negmincolor[l]); 

ref.data[5]=vcfloats->negmincolor[2]+ 


>negmincolor[2]); 

ref.data[6]=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&ref) //vertex 8 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 ] =floats->femscltopl[ 1 ]*clevel ; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->negthreshcolor[0]; 
ref.data[4]=vcfloats->negthreshcolor[ 1 ] ; 
ref.data[5]=vcfloats->negthreshcolor[2]; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref) //vertex 9 
ref.data[0]=floats->femsc]topr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ] *clevel ; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->negthreshcolor[0]; 
ref.data[4]=vcfloats->negthreshcolor[ 1 ] ; 
ref.data[5]=vcfloats->negthreshcolor[2]; 
ref.data[6]=floats->aIphathresh; 

stat = VCGeometry_GetNextVertex(&ref) //vertex 10 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ] *zerolevel; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->negthreshcolor[0]; 
ref.data[4]=vcfloats->negthreshcolor[ 1 ]; 
ref.data[5]=vcfloats->negthreshcolor[2j; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref)//vertex 1 1 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ] *zerolevel ; 
ref.data[2]=floats->femsdtopl[2] ; 
ref.data[3]=vcfloats->negthreshcolor[0]; 
ref.data[4]=vcfloats->negthreshcolor[ 1 ] ; 
ref.data[5]=vcfloats->negthreshcolor[2]; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 12 
ref.data[0]=floats->femscltop][0]; 


negmincolomiod* 

(vcfloats->negmaxcolor[0]-vcfloats- 


negmincolormod* 
(vcfloats->negmaxcolor[ 1 ]-vcfloats- 


negmincolormod* 

(vcfloats->negrnaxcolor[2]-vcfloats- 


negmincolormod * 

(vcfloats->negmaxcolor[0]-vcfloats- 


negmincolormod* 

(vcfloats->negmaxcolort 1 ] -vcfloats- 


negmincolormod* 

(vcfloats->negmaxcolor[2]-vcfloats- 
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ref.data[ 1 ]=floats->femscltopl[ l ]*zerolevel; 

ref.data[2]=floats->femscltopl[2]; 

ref.data[3]=vcfloats->posthreshcolor[0]; 

ref ,data[4]=vcfloats->posthreshcolor[ 1 ] ; 

ref.data[5]=vcfloats->posthreshcolor[2]; 

ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GelNextVertex(&ref)y/vertex 13 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ]*zero!evel; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->posthreshcolor(0]; 
ref.data[4]=vcfloats->posthreshcolor[ 1 ] ; 
ref.data[5]=vcfloats->posthreshcolor[2]; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 14 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 j *dlevel; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->posthreshcolor[0]; 
ref.data[4]=vcfloats->posthreshcolor[l]; 
ref.data[5] =vcfloats->posthreshcolor[2] ; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry„GetNextVertex(&ref)y/vertex 15 
ref.data[0]=floats->fernscltopl[0]; 
ref.data[ 1 ]= floats ->femscl topi [ 1 ] *dlevel ; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->posthreshcolor[0]; 
ref.data[4]=vcfloats->posthreshcolor[ l ]; 
ref.data[5] =vcfloats->posthreshcolor[ 2] ; 
ref.data[6]=floats->aIphathresh; 

stat = VCGeometry_GetNextVertex(&ref)^/vertex 16 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ] *dlevel ; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->posmincolor[0]+ 

posmincolormod* 

(vcfloats->posmaxcolor[OJ-vcf!oats- 

>posmincolor[0]); 

ref.data[4]=vcfloats->posmincolor[ 1 ]+ 

posmincolormod * 
(vcfloats->posmaxco!or[ 1 ] -vcfloats- 

>posmincolor[l]); 

refxiata[5]=vcfloats->posmincolor[2]+ 

posmincolormod * 
(vcfloats->posmaxcolor[2] -vcfloats- 

>posmincolor[2]); 

ref.data[6]=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 17 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ]*dlevel; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->posmincolor[0]+ 

posmincolormod* 

(vcfloats->posmaxcolor[0] -vcfloats- 

>pos mincolor [ 0 ] ) ; 

ref.data[4]=vcfloats->posmincolor[ 1 ]+ 

posmincolormod* 

(vcfloats->posmaxcolor[ 1 ]-vcfloats- 

>posmincolor[l]); 

ref.data[5]=vcfloats->posmincolor[2]+ 

posmincolormod* 

(vcfloats->posmaxcolor[2]-vcfloats- 

>posmincolor[2]); 

ref.data[6]=floats->alphainmg-.2; 
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stat = VCGeometry_GetNextVertex(&reO^/vertex 18 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ] * floats- xdrsclt op; 
ref.data[2]=floats->femscltopr{2]; 
ref.data[3]=vcfloats->posmaxcolor[0]; 
ref.data[4]=vcfloats->posmaxcolor[ 1 ] ; 
ref.data[5]=vcfloats->posmaxcolor[2]; 
ref.data[6]=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&reOy/vertex 19 
ref.data[0]=floats->femscltopl[0]; 
ref.data[l]=floats->femscltopl[ l]*floats->clrscltop; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->posmaxcolor[0]; 
ref.data[4]=vcf1oats->posmaxcolor[ 1 ] ; 
rcf.data[5]=vcfloats->posmaxcolor[2]; 
ref.data[6]=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&reO^/vertex 20 
ref.data[0]=floats->femscltopl[0] ; 
ref. data [ 1 ]=floats->femscltopl[ 1 ] *floats->clrscltop; 
ref.data[2]=floats->femscltopl[2] ; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[ 1 ] ; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[63=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 21 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ]* floats->clrsc]top; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[ 1 ] ; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&ref)y/vertex 22 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ]; 
ref.data[2]=floats->femscltopr[2] ; 
ref.data[3]=vcfloats->outofmgcolor[0j; 
ref.data[4] =vcfloats->outofmgcolor[ 1 ] ; 
ref.data[5]=vcfloats->outofmgcolor[2J; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometryj3etNextVertex(&ref) //vertex 23 
ref.data[0]=floats->femscltopl[0] ; 
ref.data[ 1 ]=floats->femscltopl[ 1 ] ; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[ 1 ] ; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats~>alphaoutmg; 

VCGeometry_Flush(dyn_geom); 

} 

/,***********************************************************************// 
H Function: di_intersect_handler 

//******************* ******************************** ********************// 


di_intersect_handler( VC B ody S c reen Intersection^ al 1 backData *callbackData, void *data) 

{ 

int num Intersections; 

if (callbackData == NULL) 

printf("di_intersect_handler : callbackData NULL; exiting handler\n M ); 
retum(ECKeepAction); 
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} 

if(VCIntersection„Get(callbackData->intersection, NULL, &intersectionReportData, &num Intersections, NULL) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCIntersection_Get returned VC_ERR\n"); 
retum(ECKeepAction); 

} 


if (intersectionReportData) 

{ 

di_FEM_interact(); 

} 

return (ECKeepAction); 


jft**** **************************************************** ********* *****/f 

// Function: di_FEM_interact - performs operations based on where the 
// mouse button intersected with the model. 

//************ ******* ******************************************** **♦****♦// 

int di_FEM _interact() 

{ 

static VCEntity *graysphere; 

static VCEntity *bluesphere; 

static VCAttribute *v=NULL; 

static VCAttribute *w=NULL; 

static VCAttribute *a=NULL; 

VCAttribute *int_attribute = NULL; 

VCEntity *entity; 

VCEntity * parent; 

VCEntity *FEMent; 

VCEntity *Meshent; 

VCEntity *ClrSclent;//temp 

dmPoint p; 

dmEuler e; 

dmScale s; 

dmMatrix mat,inv_mat,matp,cur_mat; 

dmVector intvectl, intvect2; 

VCDynamicVisual *dvis; 

VCVertex_Reference ref; 

dmPoint orgndptl, orgndpt2, nodepl, nodep2; 


int numlntersections; 

int ii = 0, i, j, k, rightindex; 

III int rightvert, rightelem, adjindex; 

dmEuler 

o; 

float32 

badcum, badrec; 

float32 

anglerec, anglecalc, anglesum, angledif; 

float32 

intrec, lengthrec, intdist, length; 

dmVector 

sidevect; 

ECVisual *visuall,*visual2; 


VCAttribute *attributel,*attribute2; 

EntityUst *picked_load = NULL, *picked_constr = NULL; 

// Load *p = NULL; 

char *loadtype = "initialization", *name = "initialization", *cname = 

"initialization"; 

int r, type, node, cnode, face[6], value[6], dof_flag[6]; 

// Get the attribute of the intersected object 

int_attribute = intersectionReportData->visual; 
if ( (entity = intersec tionReportData->entity)==NULL) 
retum(ECKeepAction); 

if(ConstrList != NULL) 

for(picked_constr = ConstrList; picked_constr != NULL; picked_constr = picked_constr->next) 

{ 

if (entity == picked_constr->nodeobj) 

( 

strcpyfcname, CONSTRAINT„SET[CONSTRAINTSET_PICK].B); 
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cnode = CONSTRAINT_SET[CONSTRAINTSET_PICK].ID[ii]; 


for (r = 0; r < 6; r++) 

dof_fiag[r] = 

CONSTRAINT_SET[CONSTRAINTSET_PICK].INDEX[ii*6+r]; 


printf("\n"); 

sprintf(chars->outtxt,"Constr Set Name:\n %s\nConstraint Node: %d\nTrans 
X = %d\nTrans Y = %d\nTrans Z = %d\nRot X = %d\nRot Y = %d\nRot Z = %d\n\ 

cname, cnode, dof_flag[0], dof_flag[l], dof_flag[2], dof_flag[3], 

dof_flag[4], dof_flag[5]); 


VCString_SetText(femtextstring, chars->outtxt); 
break; 

) 

ii++; 

} 

} 

*************************************************** ****************/ 


ii = 0; 

if(LoadUst != NULL) 


for(picked_load = LoadList; picked_load != NULL; picked_load - picked_load->next) 

{ 

if (entity == picked_load->nodeobj) 


strcpy(name, LOAD_SET[LOADSET_PICK].NAME); 
type = LOAD_SET[LOADSET_PICK].TYPE[ii]; 
switch(type) 


case 1: strcpy(loadtype, "Nodal Force"); 

break; 

case 2: strcpy(loadtype, "Nodal Displacement 1 ’); 
break; 

case 3: strcpy(loadtype, "Nodal Accel"); 
break; 

case 5: strcpy(loadtype, "Nodal Heat Generation"); 
break; 

case 6: strcpy(loadtype, "Nodal Heat Flux"); 
break; 

case 7: strcpy(loadtype, "Velocity"); 
break; 

case 8: strcpy(loadtype, "Nonlinear Transient 1 ’); 
break; 

case 10: strcpy(loadtype, "Distributed Line Load"); 
break; 

case 1 1 : strcpy(loadtype, "Element Face Pressure"); 
break; 

case 13: strcpy(loadtype, "Element Heat Generation"); 
break; 

case 14: strcpy (load type, "Element Heat Flux”); 
break; 

case 15: strcpy(loadtype, "Element Convection"); 
break; 

case 16: strcpy(1oadtype, "Element Radiation' 1 ); 
break; 


node = LO AD_SET[LOADSET_PICK] . ID[ii] ; 
for (r = 0; r < 6; r++){ 

face[r] = LOAD_SET[LOADSET_PlCK].FACE[ii*6+r]; 
value[r] = LOAD_SET[LOADSET_PlCK].VALUE[ii*8+2+r]; 


sprintf(chars->outtxt,"Load Set Name:\n %sLoad Type: %s\nLoad Node: 
%d\n Trans x value = %d\nTrans y value = %d\nTrans z value = %d\nRot x value = %d\nRot y value = %d\nRot z value = %d\n’\ 
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name, loadtype, node, value[0], value[l ), value[2], value[3]. 


value[4], value[5]); 

VCStnng_SetText(femtextstring,chars->outtxt); 

//return; 

break; 


} 


} 


ii++; 


FEMent=ECObjectGetVCEntity (objFEM); 

Meshent=ECObjectGetVCEntity (objMesh); 
if ((entity == FEMent)ll(entity = Meshent)) 

{ 

if (intersectionReportData->point) 

{ 

VCEntity_GetPositionPointEulerScale(entity,p,e,s); 

dmMatFromPointEulerScale(mat,p,e,s); 


if((parent = entity->parent)!=NULL) 

{ 

VCEntity_GetPositionPointEulerScale(parent,p,e,s); 

dmMatFromPointEulerScale(matp,p,e,s); 

dmMatMult(cur_mat,mat,matp); 

} 

else dmMatCopy(cur_mat,mat); 
dmMatlnvert(inv_mat,cur_mat); 


anglerec=360.0; 

pmi->rightvert=0; 


// Element closure angle test 

// to determine correct element intersected by intersection point 
// Dryer - 8/97 


for (i s 0; i < ELEMENT_NUM ; i++) 

{ 


angles um=0.0; 

for (j = 0; j < elearray[i * 5]; j++) 


k=j+l; 

if (j=((etearray[i*5])-l)) k=0; 

dmPointSet (orgndptl, 

(vertices[((elearray [((i*5)+(j+ 1 ))])*7 )+0] )+ 

((displaceobj[((elearray[((i*5)+(j+l))])*3)+0])*floats->LoadFactor*floats->exager), 

(vertices [((elearray[((i*5)+(j+ 1 ))])*7)+ 1 ] )+ 

((displaceobj[((elearray[((i*5)+(j+l))])*3)+l])*floats->LoadFactor*floats->exager), 

(vertices[((elearray[((i*5)+(j+l))])*7)+2])+ 

((displaceobj[((elearray[((i*5)+(j+l))])*3)+2])*floats->LoadFactor*floats->exager)); 

dmPointXformMat(nodep 1 ,orgndpt 1 ,cur_mat) ; 
dmPointSub (intvectl, intersectionReportData->point, nodepl); 

dmPointSet (orgndpt2, 

(vertices [((elearray[(( i * 5 )+(k+ 1 ))])* 7 )+0] )+ 

((displaceobj[((elearray[((i*5)+(k+l))])*3)+0])*floats->LoadFactor*floats->exager), 

(vertices [((elearray[((i* 5 )+(k+ 1 ))])*7)+ 1 ])+ 

((displaceobj[((elearray[((i*5)+(k+l))])*3)+l])*floats->LoadFactor*floats->exagerX 

(vertices[((elearray[((i*5)+(k+ 1 ))])*7)+2])+ 


E-39 



((displaceobj [((elearray [((i*5)+(k+ 1 ))])*3)+2])*floats->LoadFactor*floats->exager)); 

dmPointXformMat(nodep2,orgndpt2,cur_mat); 
dmPointSub (intvect2, intersectionReportData->point, nodep2); 

anglecalc=( 1 80.0/3. 1 4 1 5925 1 )* 

acos(((intvect 1 [0]*intvect2[0])+(intvect 1 [ 1 ]*intvect2[ 1 ])+(intvect 1 [2]*intvect2[2]))/ 

((sqrt( (intvect 1 [0] *intvect 1 [0] )+(intvect 1 [ 1 ] *intvect 1 [ 1 ] }+(intvect 1 [ 2] *intvect 1 [ 2])»* 
(sqrt((intvect2[0]*intvect2[01)+(intvect2[ 1 ] * intvect2[ 1 ] )+(intvect2[2] *intvect2[2] ))))); 

if ( fabs(1.0- 

(((intvect 1 [0] * intvect2[0] )+(intvect 1 [ 1 ]*intvect2[ 1 ])+(intvectl [2]*intvect2[2]))/ 

((sqrt((intvectl[0]*intvectl[0])+(intvectl[l]*intvectl[I])+(intvectl[2]*mtvectl[2])))* 

(sqrt((intvect2[01*intvect2[0])+(intvect2[I]*intvect2[l])+(intvect2[2]*intvect2[2])))))) 

<.000001 ) 
anglecalc=0.0; 


anglesum=anglesum+anglecalc ; 

} 

angledif = fabs(360.0-anglesum); 
if ( angledif <anglerec) 

{ 

anglerec=angledif; 
pmi ->rightelem=i ; 


//Now that correct element is identified, 

// Determine nearest vertex to intersection point (pmi->rightvert) in identified element and 
// min side length (lengthrec) for sphere marker scaling 
//Dryer - 8/97 

intrec= 10000.0; 
lengthrec= 10000.0; 

for (j=0; j<elearray[pmi->rightelem*5]; j++) 

{ 

//Set up variables 

k=j+l ; 

if (j=((eleaiTay[pmi->rightelem*53)- 1 )) k=0; 
dmPointSet (orgndpt 1 , 

(vertices[((eleairay[((pmi->rightelem*5)+(j+l))])*7)+0])+ 

((displaceobj[((elearray[((pmi- 

>rightelem*5)+(j+U)])*3)+0])*floats->LoadFactor*floats->exager) t 

(vertices[((elearray[((pmi->rightelem*5)+(j+l))])*7)+13)+ 

((displaceobj[((elearray[((pmi- 

>rightelem*5)+(j+l))])*3)+l])*floats->LoadFactor*floats->exager), 

(vertices [((elearray [((pmi ->rightelem* 5 )+(j+ 1 ))])*7)+2])+ 
((displaceobj [((elearray[((pmi- 

>rightelem*5)+(j+l))])*3)+2])*floats->LoadFactor*floats->exager)); 

dmPointXformMat(nodepl, orgndpt 1 ,cur_mat); 
dmPointSet (orgndpt2, 

(vertices[((eleairay[((pmi->rightelem*5)+(k+l ))])*7)+0])+ 
( (displaceobj [((elearray [((pmi - 

>rightelem*5)+(k+l))])*3)+0])*floats->LoadFactor*fIoats->exager), 

(vertices[((elean-ay[((pmi->rightelem*5)+(k+l ))])*7)+l])+ 
( (displaceobj [((elearray [((pmi - 

>rightelem*5)+(k+ 1 ))] )*3)+ 1 ])*floats->LoadFactor* floats->exager), 

(vertices[((elearray[((pmi->rightelem*5)+(k+l ))])*7)+2])+ 
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>rightelem*5)+(k+ 1 ))])*3)+2])*floats->U)adFactor* floats ->exager)); 


((displaceobj[((elearray[((pmi- 


dmPointXformMat(nodep2,orgndpt2,cur_mat); 


//Test for nearest element node 


dmPointSub (intvectl , intersect! onReportData->point, nodepl); 


intdist=sqrt((intvectl [0]*intvectl [0])+(intvect 1 [ 1 ] *intvect 1 [ 1 ])+(intvectl [2]*intvect I [2])); 

if (intdist<intrec) 

{ 

intrec=intdist; 

pmi->rightvert=elearray[(pmi->rightelem*5)+(j+ 1 )] ; 
points ->rightnodep[0]=nodepl [0] ; 
points ->rightnodep[ 1 ]=nodepl [ 1 } ; 
points->rightnodep[2]=nodepl[2]; 
rightindex = j; 

} 

// adjust rightindex for beam elements 

if (((ELEMENT_P+pmi->nghtelem)->A == 2) && ((rightindex = 0) II (rightindex == 


1 ))) 


pmi->adjindex = 0; 

else if (((ELEMENT_P+pmi->rightelem)->A == 2) && ((rightindex = 3) II (rightindex 


== 2 ))) 


else 


pmi->adjindex - 1 ; 


pmi->adjindex = rightindex; 


//Calculate max element side length for sphere marker scaling 

dmPointSub (sidevect, nodepl, nodep2); 

length=sqrt((sidevect[0]*sidevect[0])+(sidevect[l]*sidevect[l])+(sidevect[2]*sidevect[2])); 

if (length<lengthrec) lengthrec=length; 


if ((ELEMENT_P+pmi->rightelem)->A = 2) 

{ 

lengthrec=lengthrec*(floats->beamdelta/10); 

} 


//Dryer: used to see which vertex is being selected 
// outvert[pmi->rightvert]=out_max; 

sprintf(chars->outtxt,”%s\nNode #: %i\nElement #: %i\n\n%s%10.6f\nDX: %10.6f\nDY: %10.6f\nDZ: %10.6f\n", 

names - >ac tu al _case_name, 

(NODE_P+((ELEMENT_P+pmi->rightelem)->B[pmi->adjindex]))->A, 

(ELEMENT_P+pmi->rightelem)->D, 

names->actual_set_name[(switches->outtypenum*5)+switches->outsubnum], 

outvert[pmi->rightvert]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+0]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+l]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+2]*floats->LoadFactor); 


// create grays phere 

graysphere = VCEntity_Create(NULL, 0); 
if (VCAttribute_Delete (v) != 0) 

VC_Enror ("Error cannot destroy attribute\n M ); 

v = VCVisual_CreateGeometry ("graysphere"); 

VCEntity_AttachAttribute (graysphere, v); 

VCEntity_Scale(graysphere, (lengthrec/7.0), (lengthrec/7.0), (lengthrec/7.0)); 
VCEntity_SetPositionPoint(graysphere,intersectionReportData->point); 

// create bluesphere 

bluesphere = VCEntity_Create(NULL, 0); 
if (VCAttribute_Delete (w) != 0) 
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VC_Error ("Error cannot destroy attribute^"); 


w = VCVisuaLCreateGeometry ("bluesphere"); 

VCEntity_AttachAttribute (bluesphere. w); 

VCEntity_Scale(bluesphere, (lengthrec/5.0), (lengthrec/5.0), (iengthrec/5.0)); 
VCEntity_SetPositionPoint(bluesphere,points->rightnodep); 

if (VCAttribute_Delete (a) != 0) 

VC_Error ("Error cannot destroy audio attributed" ); 
a = VCEntity_AddAudioVoice (bluesphere, "explosion"); 

if (a == NULL) 

{ 

VC_Error ("Cannot create audio instanced"); 

} 

else 

{ 

/* Play the audio voice */ 

VCAudio_Start (a); 

/* Change the loop count to infinity, set to highest priority 
and play */ 

VCAudio_SetLoopCount (a, 1); 

VCAudio_SetPriority (a, VC_AUDIO_PRIORITY_LOCKED); 

VCAudio_Start (a); 

} 

dLmodify_FEM(); 

if (switches->meshdynmode==l) di_modify_Mesh(); 
di_modi fy_LoadSet( ) ; 
dLmodify_ConstraintSet(); 
switches->picknode=l ;//picknode 
} 

else 

{ 

// sprintf(chars->outtxt, M %s","No selection"); 

} 

VCString_SetText(femtextstring,chars->outtxt); 

} 

return; 

\ 

*********************************************************** ********// 

// Function; di_create_body_handler 
// Comments: Dryer added di_create_body_handler 

jj**** ********************************************************* **********// 


int 

di_create_body_handler( VCB odyCreate_C al lb ackData *bodyData, void *data) 

{ 

VCBody *body = body Data- >body; 

VCBody_AttachScreenIntersectionCallback(body, NULL, di_intersec Chandler, NULL); 
return; 

} 

/******* ******************************************************* *********// 

// Function: ObjectlntersectedCallback 

****** **************************** ****************************** ***♦**// 
int 

ObjectlntersectedCallback(VCIntersection_CallbackData *cdata, void *data) 

{ 

intersectionReportData = VCIntersection_GetFirstIntersectionReport(cdata->intersection, NULL); 

if(intersectionReportData == NULL) 

{ 

return; 

) 
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} 


di_FEM_interact(); 


^******* ************************************************** ********* *****// 
//Function: dilmmersDataFunc 

yy^**** ********************************************************** ********// 
int 

diImmersDataFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

char *part = NULL; 

VCAttribute *vcLimb; 

ECObjectReference *ref; 

VCPositionData pos; 
dmMatrix handMat; 

dmPoint pt; 

dmEuler on; 

dmScale scaledm; 

VC_Tra verse traverse Info; 

float32 length = 50.0; 

uint32 newMask = 0x10; 

uint32 oldMask; 

intersec tArgs intersectData; 

VCEntity *hitEntity; 

VCAttribute *intersection; 

VCIntersection *intersectionData; 

//Fix 

pos. mode = 0; 

if(args[I] != NULL) 
part = (char *)args[l]; 
else 

part = "hand"; 

intersectData. event = (uint32 *)args[2]; 
ref = (ECObjectReference *)args[3]; 

intersectData. object = ECReferenceObject(ref, &data. focus); 

// Is there a body? 
if(data.body) 

{ // Get limb position 

vcLimb = VCBody_GetBodyPart(data.body, part); 

} 

else 

{ // Get limb position 

vcLimb = VCBody_GetBodyPart(VC_GetFirstBody(&traverseInfo), part); 

) 

if (vcLimb == NULL) 

VC_Error( M dvObjectlntersectFunc: Didn’t get limb %s.\n’\ part); 
retum(ECKeepAction); 

} 

// Calculate hand matrix from position 

if(VCEntity_GetAbsolutePosition(vcLimb->first, handMat) != VC_OK) 

VC_Error("dvObjectIntersectFunc : VCEntity_GetAbsolutePosition returned VC_ERR\n"); 
retum(ECKeep Action); 

} 

// First time? 
i f( ar gs [0] ==N U LL) 

{ 

int *plnt = (int *)malloc(sizeof(int)>; 
args[0] = pint; 
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// Get the hand intersection mask 

if(VCVectorlntersect_GetlntersectMask(vcLimb, &oldMask) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCVectorlntersect_GetIntersectMask returned VC_ERR\n”); 
return (EC Keep Action); 

) 

// Stop the vector from intersecting the limb named, 

// by setting its mask value to the same 

if(VCVectorlntersect_ModifylntersectMask (vcLimb, NULL, oldMask) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCVectorIntersect_ModifyIntersectMask returned VC_ERR\n ’); 
retum(ECKeepAction); 

} 

// Get point, orientation and scale 
dmPointEulerScaleFromMat(pt, ori, scaledm, handMat); 

// Get a position from above 

if(VCPosition_MakePointEulerScale (&pos, pt, ori, scaledm) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCPosition_MakePointEulerScale returned VC_ERR\n”); 
retum(ECKeepAction); 

} 

// Define the hit entity 

hitEntity = VCEntity__Create(&pos, NULL); 

// Evaluate intersection 

intersection = VCVectorIntersect_Create(VC_VECTORINTERSECT_ENABLE, 
length, newMask, 1 ); 
if( intersect! on = NULL) 

{ 

VC_Error("dvObjectIntersectFunc : intersection is NULLVT); 
retum(ECKeepAction); 

} 

// Attach vector intersect to an entity 

if(VCEntity_AttachAttribute(hitEntity, intersection) == VC_ERR) 

{ 

VC_Error("dvObjectlntersectFunc : could not attach vector intersect to entity\n"); 
retum(ECKeepAction) ; 

) 

// Get vector intersection. 

if(VCVectorIntersect_GetIntersection(intersection, &intersectionData) != VC_OK) 

{ 

VC_ErrorCdvObjectIntersectFunc : VCVectorIntersect_GetIntersection returned VC_ERR\n"); 
retum(ECKeepAction); 

) 

// Add intersection udpate handler. 

if (VCIntersection_AttachUpdateCallback(intersectionData, ObjectlntersectedCallback, 

(void *)&intersectData) = NULL) 

{ 

VC_Error("dvObjectIntersectFunc : Failed to add intersection update handler An"); 
retum(EC Keep Action); 

} 

// Set back the hand intersect mask 

if(VCVectorIntersect_ModifyIntersectMask (vcLimb, oldMask, NULL) != VC_OK) 

{ 

VC_Error( ,, dvObjectIntersectFunc : VCVectorlntersect_ModifyIntersectMask returned VC_ERR\n ); 
retum(ECKeepAction); 

} 

} 

else 

{ 

// Get the hand intersect mask 

if(VCVector!ntersect„GetIntersectMask (vcLimb, &oldMask) != VC_OK) 

{ 

VC_Error( "dvObjectlntersectFunc : VCVectorlntersect_GetlntersectMask returned VC_ERR\n ); 
retum(ECKeepAction); 

} 
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if(VCVectorIntersect_ModifylntersectMask (vcLimb. NULL, oldMask) != VC_OK) 

{ 

VC„ErrorfdvObjectIntersectFunc : VCVectorIntersect_SetlntersectMask returned VC_ERRW); 
retum(ECKeepAction); 

} 

// Evaluate new hitEntity 

if(VCEntity_SetPositionMatrix (hitEntity, handMat) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCEntity_SetPositionMatrix returned VC_ERR\n"); 
retum(ECKeepAction); 

} 

// Evaluate new intersection 

if(VCVectorIntersect_Set(intersection, VC_VECTORINTERSECT_ENABLE, NULL, &length, 
newMask, NULL, NULL) != VC_OK) 

{ 

VC_Error( "d vObjectlntersectFunc : VCVectorIntersect_Set returned VC_ERR\n”); 
retum( EC Keep Action); 

} 

// Set back the hand intersect mask 

if(VCVectorIntersect_ModifyIntersectMask (vcLimb, oldMask, NULL) != VC_OK) 

V C_Error( ” d vObject Intersec tFunc : VCVectorlntersect_SetIntersectMask returned VC_ERR\n"); 
retum(ECKeep Action); 

} 

} 

retum(EC Keep Action); 

} 

//*****♦* ***^** ******************************** **************************// 

//Function: di_animTimer 

^y********** *********************************** **************************// 


int 

di_animTimer(VCTimer_CallbackData *callbackData, void *data) 

{ 

int i; 

if (switches->startanim== 1) 

{ 

// FEM animation floats->LoadFactor 0.0 to 1 .0 

for (i=0; i< 100; i-f+)//loop for sawtooth animation 

{ 

floats->LoadFactor=i/l 00.0; 
di_modi fy _FE M ( ) ; 

if (switches->meshdynmode=l) di_modify_Mesh(); 

di_modify_LoadSet(); 

di_modify_ConstraintSet(); 

} 

if (switches->animmode==0)//tum on loop for ramp animation 

{ 

for (i= 1 00; i>0; i--) 

{ 

floats->LoadFactor= i/1 00.0; 
di_modify_FEM(); 

if (switches->meshdynmode==l) di_modify_Mesh(); 

di_modify_LoadSet(); 

di_modify_ConstraintSet(); 


yy***********************************************************************// 
// Function: di_animalarm 

yy********** *************************** ****** ************** ************* *yy 


int 
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dLanimaIarm(VCTimer_CallbackData *cd, void *data) 

{ 

void *animHandle=data; 


if (switches->startanim— 0) 

{ 

VCTimer_DetachCallback(animHandle); 

} 

else 


if (animHandle) 

{ 

VCTimer_DetachCallback(animHandIe); I* stop the animation */ 
/* and re-run this function in one seconds time to restart animation */ 

VCTimer_AttachExpiringCallback(l, di_animalarm, NULL); 

} 

else 


{ 


} 


/* data is NULL, so restart animation */ 

animHandle = VCTimer_AttachPeriodicCallback( 1 00.0/ 100.0, di_animTimer, NULL); 
if (lanimHandle) 

printf( "Failed to restart animation^"); 

else 


VCTimer_AttachExpiringCallback(l, di_animalarm, animHandle); 


} 

//**************** ************************************************** ***♦*// 

//Function: diToggleAnimFunc 

^**************************** ************************ *******************// 

int diToggleAnimFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

if(ECArgReferenceGetValue(args[ 1], (void *)&switches->startanim, &data.focus) == VC_ERR) 
switches->s tartan im = - 1 ; 

if (switches->startanim==l) 

{ 

void ^animHandle; 

animHandle = VCTimer_AttachPeriodicCallback (100.0/100.0, di_animTimer, NULL); 
VCTimer_AttachExpiringCallback(l, dLanimalarm, animHandle); 


} 

y/* ******************************************************** ****** *****♦*♦// 

// Function: diBodyStartupPosFEMFunc - Sets the zone startup body position 

/y************************* ***************************** *****************// 

int 

diBodyStartupPosFEMFunc(ECEvent *event, ECEventData data, ECAction ^action) 

< 

dmPoint s; 

VCBody *thisBody; 

VCBody *body = data. body; 

VC_Tra verse traverse Info; 
void **args = action ^parameters; 
dmMatrix tempMat; /* Get original body position */ 
float32 tempX; 
float32 tempY; 
float32 tempZ; 

/* Is there a body? *f 
if (body == NULL) 

body = VC_GetFirstBody(&traverseInfo); 
if(body != NULL) 
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VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(s, tempMat); 


//STARTUP HOME (FRONT) VIEW 

tempX = po i nts ->FEM center [VC_X]; 
tempY = points->FEMcenter[VC_Y]; 

tempZ = points->FEMcenter[VC_Z]+(floats->xyzmax-(floats->xyzmax/4.0)); 

s[VC_X] = tempX; 
s[VC_Y] = tempY; 
s[VC_Z] = tempZ; 

/* Set the current body startup position */ 

VCBody_SetPosition(body, NULL, s, NULL, NULL, NULL, NULL); 

} 

/* Accomodate for NULL values and no body */ 
s[VC_X] = tempX; 
s[VC_Y] = tempY; 
s[VC_Z] = tempZ; 

/* Set the Global body position */ 
if(body != NULL) 

ECZoneSetBodyStartupPosition(ECBodyGetZone(body), s) ; 
else 

ECZoneSetBodyStartupPosidon(ECTopZoneGet(), s); 
retum(ECKeepAction); 

} 

//******* ********************************************************** *♦****// 

// Function: diNavModeFunc 

//*****♦* *************** ************ ***************************** ****** **// 


int diNavModeFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void **args = action->parameters; 

if(ECArgReferenceGetValue(args[ 1], (void *)&switches->navmode, &data.focus) == VC_ERR)//switches->navmode is 

navmode 


switches->navmode = 1 ; 


} 


//********** ************************************ ******************** *****// 
// Function: diSetViewFunc 

//***#*****♦ *************************************************** *♦*******♦// 


int diSet View Func(ECEvent *event, ECEventData data, ECAction * action) 

{ 

void **args = action->parameters; 

dmMatrix tempMat; 

uint32 viewnum; 

VCBody *body = data.body; 


// 


if(ECArgReferenceGetValue(args[l], (void *)&viewnum, &data.focus) = VC_ERR) 
viewnum = 1 ; 
switch(viewnum) 


{ 

case 1 : //Set User View 1 

switches->set 1 = 1^/setl 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(points->viewl , tempMat); 
break; 

case 2 : //Set User View 2 

switches->set2 = t ;//set2 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(points->view2, tempMat); 
break; 

default : //Set User View 1 
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switches->setl = l;//setl 

VC Body_Get Absolute Position (body, tempMat); 
dmPointFromMat(points->view I , tempMat); 
break; 

} 

} 

^*************** *************************************************** ****♦// 

// Function; diBodyMoveToFunc - Navigates (in different modes) the body 
// to a given viewpoint or position while orienting on the 

// center of the FEM or other designated object center 

//***«****; ************************************************* **************// 

int 

diBodyMoveToFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

static float32 lasty— 0.0; 

float32 time; 

float32 elapsed; 

int32 done = 0; 

float32 rate = 1 ; 

float32 len; 

dmPoint newPos; 

dmPoint towards; 

Move Info *mi; 

VCBody *body = data.body; 

void **args = action->parameters; 

VC_Traverse traverselnfo; 

dmMatrix tempMat; 

dmEuler o; 

float32 xdegree,ydegree,zdegree; 

dmVector orientVect; 

dmVector adjvector; 

float32 tempX; 

float3 2 tempY ; 

float32 tempZ; 

uint32 view=- 1 ; 

float32 standoff=20.0; 

if(ECArgReferenceGetValue(args[l], (void *)&view, &data.focus) = VC_ERR) 
view=l ; 

switch(view) 

{ 

case 1 : //TOP VIEW 

tempX = points->FEMcenter[VC_X]; 

tempY = points->FEMcenter[VC_Y]+(floats->xyzmax-(floats->xyzmax/4.0)); 

tempZ = points->FEMcenter[VC_Z]; 
towards[VC_X] = points ->FEMcenter[VC_X]; 
towards[VC_Y] = points->FEMcenter[VCJY]; 
towards[VC_Z] = points->FEMcenter[VC_Z]; 
break; 

case 2 : //BACK VIEW 

tempX = points->FEMcenter[VC_X]; 
tempY = points->FEMcenter[ VC_Y] ; 

tempZ = points->FEMcenter[ V C_Z] -(floats->xyzmax-(floats->xy zmax/4.0)) ; 

towards[VC_X] = points->FEMcenter[VC_X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

towards [VC_Z] = points ->FEMcenter[VC_Z]; 

break; 

case 3 : //LEFT VIEW 

tempX = points->FEMcenter[VC_X]-(floats->xyzmax-(floats->xyzmax/4.0)); 

tempY = points->FEMcenter[VC_Y]; 

tempZ = points->FEMcenter[VC_Z]; 

towards[VC_X] = points->FEMcenter[VC_X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

towards[VC_Z] = points->FEMcenter[VC_Z]; 

break; 

case 4: //HOME (FRONT) VIEW 

tempX = points->FEMcenter[VC_X], 
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case 5 : 


case 6 : 


case 7 : 


case 8 : 


case 9 : 


case 10 : 


tempY = points->FEMcenter[VC_Y], 

ternpZ = points->FEMcenter[ VC JZ]+(floats->xyzmax-(floats->xyzmax/4.0)); 

towards! VC_X] = points->FEMcenter[VC_X]; 

towards! VC_Y] = points->FEMcenter[VC_Y]; 

towards[ VC_Z] = points->FEMcenter[VC_Z]; 

break; 

//RIGHT VIEW 

tempX = points->FEMcenter[VC_X]+(floats->xyzmax-(floats->xyzmax/4.0)); 

tempY = points->FEMcenter[VC_Yl; 

tempZ = points->FEMcenter[VC_Z]; 

towards[VC_X] = points->FEMcenter[VC_X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

towards [VC_Z] = points->FEMcenter[VC_Z]; 

break; 

//ISOFRONTLEFT VIEW 

tempX = points->FEMcenter[VC_X]-(floats->xyzmax-(floats->xyzmax/2.0)); 

tempY = points->FEMcenter[VC_Y]-Kfloats->xyzmax-(floats->xyzmax/2.0)); 

tempZ = points->FEMcenter[VC_Z]+(floats->xyzmax-(floats->xyzm ax/2.0)); 

towards[VC_X] = points->FEMcenter[VC_XJ; 

towards[VC_Y] = points->FEM center! VC_Y]; 

towards[VC_Z] = points->FEMcenter[VC_Z]; 

break; 

//BOTTOM VIEW 

tempX = points->FEMcenter[VC_X]; 

tempY = points->FEMcenter[ VC_Y]-(floats->xyzmax-(floats->xyzmax/4.0)) ; 

tempZ = points->FEMcenter[VC_Z]; 

towards! VC_X] = points*>FEMcenter[VC_X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

towards! VC_Z] = points->FEMcenterfVC_Z]; 

break; 

//ISOFRONTRIGHT VIEW 

tempX = points->FEMcenter[VC_X]+(floats->xyzmax-(floats->xyzmax/2.0)); 

tempY = points->FEMcenter[VC_Y]-Kfloats->xyzmax-(floats->xyzmax/2.0)); 

tempZ = points->FEMcenter[VC_Z]+(floats->xyzmax-(floats->xyzmax/2.0)); 

towards!VC_Xl = points->FEMcenter[VC_X]; 

towards! VC_Y] = poin ts->FEM center [VC_Y]; 

towards! VC_Z] = poi nts->FEM center [VC_Z]; 

break; 

//NODE VIEW 
if (switches->picknode = 1) 

{ 

tempX = points->rightnodep!VC_X]; 
tempY = points->rightnodep!VC_Y]; 
tempZ = points->rightnodep[VC_Z]; 
towards! VC_X] = points->rightnodep[VC_X]; 
towards! VC_Y] = points->rightnodep[VC_Y]; 
towards[VC_Z] = points->rightnodep[VC_Z]; 

} 

else 

{ // Return early because no node selection 
args[0] = NULL; 
ret urn (EC Keep Action); 


break; 

//USER VIEW 1 
if (switches->setl = 1 )//set 1 
{ 

tempX = points->viewl!VC_X]; 

tempY = points->viewl[VC_Y]; 

tempZ = points->viewl !VC_Z}; 

towards! VC_X] = points->FEMcenter[VC_X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

towards! VC_Z] = points->FEMcenter[VC_Z]; 

) 

else 

{ // Return early because points->viewl not set 
args[0] = NULL; 
retum(ECKeepAction); 

} 

break; 
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case 1 1 : //USER VIEW 2 

if (switches->set2 == l)//set2 

{ 

tempX = points->view2[VC_X]; 
tempY - points->view2[VC_Y]; 
tempZ = points->view2[VC_Z]; 
towards[VC_X] = points->FEMcenter[VC_X]; 
towards[VC_Y] = points->FEMcenter[VC_Y]; 
towards[VC_Z] = points->FEMcenter[VC_Z3; 

} 

else 

{ // Return early because points->view2 not set 
args[0] = NULL; 
retum(ECKeepAction); 


break; 

default: //HOME (FRONT) VIEW 

tempX = points->FEMcenter[VC_X]; 
tempY = points->FEMcenter[VC_Y]; 

tempZ = points->FEMcenter[VC_Z]+(floats->xyzmax-(floats->xyzmax/4)); 

towards[VC_X] = points->FEMcenter[VC_X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

towards[VC_Z] = points->FEMcenter[VC_Z]; 

break; 


switch(switches->navmode) //navmode 

{ 

case I : //fast/hyper mode (orient on FEM center) 

// Is there a body? 
if (body = NULL) 

body = VC_GetFirstBody(&traverseInfo); 

if ((mi = args[0]) == NULL) // first call 

{ 

args[0]= mi=(MoveInfo *)malloc(sizeof(MoveInfo)); 
dmPointSet (mi->posa, tempX, tempY, tempZ); 

rate = 400.0; 

// Setup move information parameters 
mi->body = body; 


if (body != NULL) 

{ 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(mi->bodyOffset, tempMat); 


else 

{ 

mi->bodyOffset[VC_X] = 0.0 
mi->bodyOffset[VC_Y] = 0.0 
mi->bodyOffset[VC_Z] = 0.0 


>xy zmax/standoff) ; 


>xyzm ax/standoff); 


>xyzmax/standofO ; 


if (view = 9) 

{ 

dmPointSub (adjvector, mi->bodyOffset, towards); 

adjvector[0]=(adjvector[0]/sqrt((adjvector(0]*adjvector[0])+ 

(adjvectorf l]*adjvector[ 1 ])+ 

(adj vector[2] * adj vector[2] )) ) * (floats 

adjvector[ 1 ]=( adj vector! 1 ]/sqrt((adjvector[0] *adjvector[0])+ 

(adj vector! 1 ] *adjvector! 1 ] )+ 
(adjvectort2]*adjvector[2])))*(floats 

adjvector!2]=(adjvector[2]/sqrt((adjvector[0]*adjvector[0])+ 

(adjvector! 1 ]*adj vector! 1])+ 
(adjvector[2] *adj vector! 2])))*(floats 


E-50 



dmPointAddVector (mi->posa, mi->posa, adjvector); 


} 

mi->velocity[VC_X] = mi->posa[VC_X] - mi->bodyOffset(VC_X]; 
mi->velocity[VC_Y] = mi->posa[VC_Y] - mi->bodyOffset[VC_Y]; 
mi->velocity[VC_Z] = mi->posa[VC_Z] - mi->bodyOffset(VC_Zj; 
len=sqrt(mi->velocity[VC_X] * mi->velocity[VC_X]+ 

mi->velocity[VC_Y] * mi->velocity[VC_Y]+ 
mi->velocity[VC_Z] * mi->velocity[VC_ZJ); 

if(len != 0) 

{ 

rate /= len; 

} 

else 

{ // Return early because zero distance to move 
args[0] = NULL; 
retum(ECKeepAction) ; 

} 

mi->velocity[VC_X] *= rate; 
mi ->■ velocity [VC_Y] *= rate; 
mi->velocity[VC_Z] *= rate; 
mi->time = -l.f; 
if(rate != 0) 

{ 

mi->totalTime = l.f / rate; 

} 

else 

{ // Return early because zero speed entered 
args[0] = NULL; 
retum(ECKeepAction); 

} 

ECZoneAddAnimateAction(ECBodyGetZone(body), event, action); 

} 

// Added this so that we use the time in the zone 
// where the body is. 

time = ECZoneGetTime(ECBodyGetZone(body)); 
if (mi->time= -l.f) 

{ 

mi->time=time; 

elapsed=0.f; 

} 

else 

{ 

elapsed=time-mi->time ; 

} 

if (elapsed < mi->totalTime) 

{ 

// Animate body 

newPos[VC_X] = mi->bodyOffset[VC_X] + elapsed * mi->velocity[VC_X]; 
newPos[VC_Y] = mi->bodyOffset[VC_Y] + elapsed * mi->velocity[VC_Y]; 
newPos[VC_Z] = mi->bodyOffset[VC_Z] + elapsed * mi->velocity[VC_Z]; 

//Update orientation to towards (FEM center or node (for node view)) 
dmPointSub (orientVect, towards, newPos); 

xdegree=( 1 80.0/3 .141 5925 1 )* 

(asin(orientVect[lj/ 

(sqrt((orientVect[0]*orientVect[0])+ 

(orient Vect[ 1 ]*orientVect[ 1 ])+ 

(orientVect[2]*orientVect(2]))))); 

ydegree=- 1 .0*(90+(( 1 80.0/3 . 1415925 1 )* 

(dmSafeAtan2 (orient Vect[2], orientVect[0])))); 

if ((orientVect[2] < .00001 && orientVect[2] > -.00001)&&(orientVect[0] < .00001 && 

orient Vect[0] > -.00001)) 

{ 


ydegree=lasty; 
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else 

{ 

lasty = ydegree; 

} 


zdegree = 0.0; 

dmEulerSetD(o,xdegree, ydegree, zdegree); 
retum(ECKeepAction);///added 


} 

else 

{ 

// Move body to final position 

newPos[VC_X] = mi->posa[VC_X]; 
newPos[VC_Y] = mi->posa[VC_Y]; 
newPos[VC_Z] = mi->posa[VC_Z]; 


//Update final orientation to towards (FEM center or node (node view)) 

dmPointSub (orientVect, towards, newPos); 


orientVect[0] > -.00001)) 


} 


xdegree=( 1 80.0/3. 1 4 1 5925 1 )* 

(asin(orientVect[ 1 ]/ 

(sqrt((orientVect[0]*orientVect[0])+ 

(orientVect[ 1 ] *orientVect[ 1 ])+ 

(orientVect[2]*orientVect[2]))))); 

ydegree=- 1 .0*(90+(( 1 80.0/3 . 1415925 1 )* 

(dmSafeAtan2 (orientVect[2], orientVect[0])))); 

if ((orientVect[2] < .00001 && orientVect[2] > -,00001)&&(orientVect[0] < .00001 && 


{ 


} 

else 

{ 

} 


ydegree=lasty; 


lasty = ydegree; 


zdegree = 0.0; 

dmEulerSetD(o,xdegree,ydegree, zdegree); 
done = 1; 


if(mi->body != NULL) 

{ VCBody_SetPosition(mi->body 1 NULL, newPos, o, NULL, NULL, NULL); 

} 

else 

VCBody_SetPosition(VC_GetFirstBody(&traverselnfo), NULL, newPos, o, NULL, NULL, NULL); 

} 


if(done = 1) 


// Clean up 

free(mi); 

args[0] = NULL; 

retum(ECRemoveAction); 

} 

retum(ECKeepAction); 

break; 


case 2 : //straight line fly move (orient on FEM center) 

switches->navstate=0; 

// Is there a body? 
if (body == NULL) 
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body = VC_GetFirstBody(&traverselnfo); 

if {(mi = args[0]) == NULL) // first call 

{ 

args[0]= mi=(MoveInfo *)malloc(sizeof(MoveInfo)); 
dmPointSet (mi->posa,tempX,tempY,tempZ); 


// Extract user parameters 

if(ECArgReferenceGetValue(args[2], (void *)&rate, &data. focus) == VC_ERR) 
rate = 4.0; 

// Setup move information parameters 

mi->body = body; 

if (body != NULL) 

{ 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(mi->bodyOffset, tempMat); 

) 

else 

{ 

mi->bodyOffset[VC_X] =0.0; 
mi->bodyOffset[VC_Y] = 0.0; 
mi->bodyOffset[VC_Z] = 0.0; 

) 


if (view = 9) 

( 

dmPointSub (adjvector, mi->bodyOffset, towards); 
adjvector[0]=(adjvector[0]/sqrt((adjvector[0]*adjvector[0])+ 

(adj vector[ 1 ] *adj vector[ 1 ] )+ 
(adjvector[2]*adjvector[2])))*(floats 

>xy zmax/standoff) ; 

adjvector[ 1 ]=(adj vector [ l]/sqrt((adjvector[0]*adjvector[0])+ 

(adjvector[ I ]*adj vector[ 1 ])+ 
(adjvector[2]*adjvector[2])))*(fioats 

>xyzmax/standoff); 

adjvector[2]=(adjvector[2]/sqrt((adjvector[0]*adjvector[0])+ 

(adj vector[ I ] *adj vec tor[ 1 ] )+ 
(adjvector[2]*adjvector[2])))*(floats 

>xyzmax/standoff); 

dmPointAddVector (mi->posa, mi->posa, adjvector); 

I 

mi->velocity[VC_X] = mi->posa[VC_X] - mi->bodyOffset[VC_X]; 
mi-> velocity [VC_Y] = mi->posa[VC_Y] - mi->bodyOffset[VC_Y]; 
mi-> velocity [VC_ZJ = mi->posa[VC_Z] - mi->bodyOffset[VC_Z]; 
len=sqrt(mi->velocity[VC_X] * mi->velocity[VC_X]+ 
mi->velocity[VC_Y] * mi->velocity[VC_Y]+ 
mi-> velocity [VC_Z] * mi-> velocity [VC_Z]); 

if(len != 0) 

{ 

rate /= len; 

> 

else 

{ // Return early because zero distance to move 
args[0] = NULL; 
return (EC Keep Action) ; 

} 

mi->velocity[VC_X] *= rate; 
mi -> velocity [VC_Y] *= rate; 
mi->velocity[VC_Z] *= rate; 
mi->time = -I.f; 
ifirate != 0) 

{ 

mi->totalTime = l.f/ rate; 


else 

( // Return early because zero speed entered 
argsfOJ = NULL; 
retum(ECKeepAction); 
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ECZoneAddAnimateAction(ECBodyGetZone(body), event, action); 

) 

// Added this so that we use the time in the zone 
// where the body is. 

time = ECZoneGetTime(ECBodyGetZone(body)); 
if (mi->time== -1.0 
{ 

mi->time=time; 

elapsed=0.f; 

} 

else 

{ 

elapsed=time-mi->time; 

} 

if (elapsed < mi->totalTime) 


// Animate body . 

newPos[VC_X] = mi->bodyOffset[VC_X] + elapsed * mi->velocity[VC_X]; 
newPos [VC_Y] = mi->bodyOffset[VC_Y] + elapsed * mi->velocity[VC_Yj; 
newPos [VC_Z] = mi->bodyOffset[VC_Z] + elapsed * mi->velocity[VC_Z]; 
//Update orientabon towards FEM center 

dmPointSub (orientVect, towards, newPos); 


xdegree=(l 80.0/3. 14159251)* 

(asin(orientVect[l]/ 

(sqrt((orientVect[0]*orientVect[0])+ 
(orientVect[ 1 ]*orientVect[ 1 ])+ 
(orientVect[2]*orientVect[2]))))); 

ydegree=- 1 .0*(90+(( 1 80.0/3. 1 4 1 5925 1 )* 

(dmSafeAtan2 (orientVect[2], orientVect [0])))); 


orientVect[0] > -.00001)) 


if ((orientVect[2] < .00001 && orientVect[2] > -.00001)&&(orientVect[0] < .00001 && 


{ 


} 

else 

{ 

} 


ydegree=lasty; 


lasty = ydegree; 


zdegree = 0.0; 

dmEulerSetD(o,xdegree, ydegree, zdegree); 


else 

{ 

// Move body to final position 

newPos[VC_X] = mi->posa[VC_X]; 
newPos[VC_Y] = mi->posa[VC_Y]; 
newPos[VC_Z] = mi->posa[VC_Z]; 


//Update final orientation towards FEM center 

dmPointSub (orientVect, towards, newPos); 

xdegree=( 1 80.0/3. 1415925 1 )* 

(asin(orientVect[l]/ 

(sqrt((orientVect[0]*orientVect[0])+ 
(orientVect[ 1 ] *orientVect[ 1 ])+ 
(orientVect[2]*orientVect[2]))))); 

ydegree^- 1 .0*(90+(( 1 80.0/3 .141 5925 1 )* 

(dmSafeAtan2 (orientVect[2], orientVect[0])))); 


if ((orientVect[2] < .00001 && orientVect[2] > -.00001 )&&(orientVect[0] < .00001 && 

orientVecl[0] > -.00001)) 
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{ 


ydegree=lasty; 

} 

else 

{ 

lasty = ydegree; 

} 


zdegree = 0.0; 

dmEulerSetD(o,xdegree,ydegree, zdegree); 
done = 1 ; 

} 

if(mi->body != NULL) 

{ VCBody_SetPosition(mi->body, NULL, newPos, o, NULL, NULL, NULL); 

} 

else 

VCBody_SetPosition(VC_GetFirstBody(&traverseInfo), NULL, newPos, o, NULL, NULL, NULL); 

} 

if(done = I) 


// Clean up 

free(mi); 
args[0] = NULL; 
switches->navstate=l ; 
re tum(ECRemove Action); 

} 

retum(ECKeepAction); 

break; 

default: //straight line fly move (orient on FEM center) 

// Is there a body? 
if (body = NULL) 

body = VC_GetFirstBody(&traverseInfo); 


if ((mi = args[0]) == NULL) // first call 

{ 

args[0]= mi=(MoveInfo *)malloc(sizeof(MoveInfo)); 
dmPointSet (mi->posa,tempX,tempY,tempZ); 


// Extract user parameters 

if(ECArgReferenceGetValue(args[2], (void *)&rate, &data.focus) == VC_ERR) 
rate = 4.0; 

// Setup move information parameters 

mL>body = body; 

if (body != NULL) 

{ 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(mi->bodyOffset, tempMat); 

} 

else 

{ 

mi->bodyOffset[VC_X] =0.0; 
mi->bodyOffset[VC_Y] = 0.0; 
mi->bodyOffset[VC_Z] = 0.0; 

} 


if (view == 9) 

{ 

dmPointSub (adjvector, mi->bodyOffset, towards); 
adjvector[0]=(adjvector[0]/sqrt((adjvector[0]*adjvector[0])+ 

(adj vector[l ]*adj vector [ 1 ])+ 
(adjvector[2]*adjvector[23)))*(floats- 

>xy zmax/standof f) ; 
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>xyzmax/standoff); 


>xyzmax/standoff) ; 


adj vector! I]=(adjveclor[l]/sqrt((adjvector[0]*adjvector[0] )+ 

(adj vector[ l]*adjvector[l])+ 
(adjvector[2]*adjvector[2])))*(floats- 

adjvector[2]=(adjvector[2]/sqrt((adjvector[0]*adjvector(0])+ 

(adjvector[ 1 ]*adjvector[ 1])+ 

(adj vector! 2]*adjvector[2])))*(floats- 

dmPointAddVector (mi->posa, mi->posa, adjvector); 


mi->velocity[VC_X] = mi->posa[VC_X] - mi->bodyOffset[VC_X]; 
mi->velocity[VC„Y] = mi->posa[VC_Y] - mi->bodyOffset[VC_Y]; 
mi->velocity[VC_Z] = mi->posa[VC_Zj - mi->bodyOffset[VC_Z]; 
len=sqrt(mi-> velocity! VC_X] * mi->velocity[VC_X]+ 
mi->velocity[VC_Y] * mi -> velocity !VC_Y]+ 
mi->velocity[VC_Z] * mi->velocity[VC_Z]); 

if(len != 0) 

{ 

rate /= len; 


else 

{ // Return early because zero distance to move 
args[0] = NULL; 
return! EC Keep Action); 

) 

mi->velocity[VC_X] *= rate; 
mi->velocity[VC_Y] *= rate; 
mi->velocity[VC_Z] *= rate; 
mi->time = - If; 
if(rate != 0) 

{ 

mi->totalTime = l.f/ rate; 

} 

else 

{ // Return early because zero speed entered 
args[0] = NULL; 
retum(ECKeepAction); 

} 

ECZoneAdd Animate Action(ECBodyGetZone(body), event, action); 

} 

// Added this so that we use the time in the zone 
// where the body is. 

time = ECZoneGetTime(ECBodyGetZone(body)); 
if (mi->time= - l.f) 

{ 

mi->time=time; 

elapsed=0.f; 

} 

else 

{ 

elapsed=time-mi->time; 

} 

if (elapsed < mi->totalTime) 

{ 

// Animate body 

newPos[VC_X] = mi->bodyOffset[VC_X] + elapsed * mi->velocity[VC_X]; 
newPos[VC_Y] = mi->bodyOffset[VC_Y] + elapsed * mi->velocity[VC_Y]; 
newPos[VC_Z] = mi->bodyOffset[VC_Z] + elapsed * mi->velocity[VC_Z]; 
//Update orientation towards FEM center 

dmPointSub (orientVect, towards, newPos); 

xdegree=( 1 80.0/3. 1415925 1 )* 

(asin(orientVect[ 1 ]/ 

(sqrt((orientVect(01*orientVect[0])+ 
(orient Vect[ 1 ] *orient Vect( 1 j )+ 
(orientVect[2]*orientVect[2]))))); 

ydegree=- 1 .0*(90+(( 1 80.0/3 .141 5925 1 )* 
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(dmSafeAtan2 (orientVect[2], orientVect[0]))»; 
if ((orientVect[2] < .00001 && onentVect[2] > -.00001)&&(orientVect[0] < .00001 && 

orientVect[0]> -.00001)) 

\ 


) 

else 

{ 

} 


ydegree=lasty; 


lasty = ydegree; 


zdegree = 0.0; 

dmEulerSetD(o,xdegree, ydegree, zdegree); 

} 

else 

{ 

// Move body to final position 

newPos[VC_X] = mi->posa[ VC_X] ; 
newPos[VC_Y] = mi->posa[VC_Y]; 
newPos[VC_Z] = mi->posa[VC_Z]; 


//Update final orientation towards FEM center 

dmPointSub (orientVect, towards, newPos); 


orientVect[0] > -.00001)) 


xdegree=( 1 80.0/3 . 1 4 1 5925 1 )* 

(asin(orientVect[l]/ 

(sqrt((orientVect[0] *orientVect[0] )+ 

(orientVect[ 1 ] *orientVect[ 1 ])+ 

(orientVect[2]*orientVect[2]))))); 

ydegree^- 1 .0*(90+(( 1 80.0/3. 14159251)* 

(dmSafeAtan2 (orientVect[2], orientVect[0])))); 

if ((orient Vect[2] < .00001 && orientVect[2] > -.00001)&&(orientVect[0] < .00001 && 


{ 


ydegree=lasty; 


else 

{ 

lasty = ydegree; 

} 


zdegree = 0.0; 


dmEulerSetD(o,xdegree,ydegree,zdegree); 


done = 1 ; 

} 

if(mi->body != NULL) 

{ VCBody_SetPosition(mi->body, NULL, newPos, o, NULL, NULL, NULL); 


VCBody_SetPosition(VC_GetFirstBody(&traverseInfo), NULL, newPos, o, NULL, NULL, NULL); 


if(done = 1) 

{ 

// Clean up 

free(mi); 
args[0] = NULL; 
retum(ECRemove Action); 

} 

retum(ECKeepAction); 
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} 


break; 


} 

j i ^ *************** ******** * * ***************************** ***** ********* * n 

U Function: diToggleMeshDynFunc 

U * *** ** *** * ********* ** ********************* ********** ****************** *// 


int diToggleMeshDynFunc(ECEvent *event, ECEventData data, ECAction *action) 


{ 




void **args = action->parameters; 

if(EC ArgReferenceGet Value(args[ 1 ] , (void *)&switches->meshdynmode, &data.focus) = VC_ERR) 
switches->meshdynmode = 1 ; 


^**************** *********************************** ********************// 
// Function: diToggleAnimModeFunc 

//****♦ ************** ****************************************** ******** **// 


int diToggleAnimModeFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void **args = action->parameters; 

if(ECArgReferenceGetValue(args[l], (void *)&switches->animmode, &data.focus) == VC_ERR) 
switches->animmode = 1; 


} 


************************************ *** ****************************// 
// Function: diOutputSetFunc 

^** ********************************************** ***********************// 


int diOutputSetFunc(ECEvem *event, ECEventData data, ECAction ^action) 

{ 

void **args = action->parameters; 

if(ECArgReferenceGetVa)ue(args[ I ], (void *)&switches->outtypenum, &data.focus) == VC_ERR) 
switches->outtypenum = 0; 

if(ECArgReferenceGetValue(args[2], (void *)&switches->outsubnum, &data.focus) == VC_ERR) 
switches->outsubnum = 0; 


di_ _set_range(); 
di_output_mods( ) ; 
di_modify_ClrScl(); 


di_modi fy_FEM ( ) ; 

sprintf(chars->outtxt,"%sNode #: %i\nElement #: %i\n\n%s%10.6f\nDX: %10.6f\nDY: %10.6f\nDZ: %10.6f\n\ 

names->actual_case_name, 

(NODE_P+((ELEMENT_P+pmi->rightelem)->B[pmi->adjindex]))->A, 

(ELEMENT_P+pmi->rightelem)->D, 

names->actual_set_name[(switches->outtypenum*5)+switches->outsubnum], 

outvert[pmi->rightvert]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+0]*f!oats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+l]*f1oats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+2]*floats->LoadFactor); 

VCString_SetText(femtextstring,chars->outtxt); 

di_updateclrscltxt(); 


int diToggleNavStateFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

if(ECArgReferenceGetValue(args[l], (void *)&switches->navstate, &data.focus) == VC_ERR) 
switches->navstate = 1; 


) 


//********** *************** ****************** *********** ************************// 
// Function: diToggleLoadFunc - toggles visibility of loads on model 
11**+**** ************************************************************ ***********11 
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int diToggleLoadFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

EntityList *tmp = NULL; 

void **args = action->parameters, 

tmp = malloc (sizeof (EntityList)); 

if(EC ArgReferenceGetValue(args[ 1 ], (void *)&switches->loadcasestate, &data.focus) == VC_ERR) 
switches->loadcasestate = 1; 

if (switches->loadcasestate = 1 ) 

for(tmp = LoadList; tmp != NULL; tmp = tmp->next) 

VCVisuaLModifyMode (tmp->vis, VC_V1SIBLE, 0); 

else 

for(tmp = LoadList; tmp != NULL; tmp = tmp->next) 

VCVisuaLModifyMode (tmp->vis, 0, VC_VISIBLE); 

free(tmp); 

} 

yy******* ******************************************** ********** ** ******* ********yy 

// Function: diCreateLoadObjectsFunc - creates the loads on the model // 

yy******* ********************* ********************************* *****************// 

int diCreateLoadObjectsFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

int i; 

void **args = action ->parameters; 

EntityList *newltem; 
dmEuler o; 
dmScale s; 

LoadList = malloc (sizeof (EntityList)); 

LoadList = NULL; 

for(i = 0; i < LOADSET_NUM && i < 100; i++){ 
newltem = malloc (sizeof (EntityList)); 

// Initialization 

newltem->nodeobj = newltem->vis = newltem->next — NULL; 

// Populate the new item 
if(loadcoordind != NULL){ 

newItem->nodeobj=VCEntity_Create(NULL,0); 
newItem->vis=VCVisual_CreateGeometry(”greenarw"); 
VCVisual_SetlntersectMask (newltem->vis, 1); 

VCEntity_AttachAttribute (newItem->nodeobj, newltem->vis); 
newltem->nodepoint[0] = vertices[(loadcoordind[i]*7)+0]; 
newItem->nodepoint[ 1 ] = vertices [(loadcoordind[i]*7)+l]; 
newltem->nodepoint[2] = vertices[(loadcoordind[i]*7)+2]; 

// Add the new item to the beginning of the list 
if (LoadList == NULL) 

LoadList = newltem; 

else{ 

newltem->next = LoadList; 

LoadList = newltem; 

} 

// Creates the points on the model and sets it invisible 

dmEulerSetD (o, 0, 90, 0); 
s[0]=floats->xyzmax/5 ; 
s[ 1 ]=floats->xyzmax/5; 
s[2]=floats->xyzmax/5 ; 

VCEntity_SetPositionPointEulerScale (LoadList->nodeobj, LoadList->nodepoint, o, s); 
VCVisuaLModifyMode (LoadList->vis, 0, VC_VISIBLE); 

} 

di_modify_LoadSet(); 

di_modify_ConstraintSet(); 

} 

} 
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II* ******************************** *************** ************* *************** **// 

H Function: di_modify_LoadSet - modifies the loads on the model N 

U *** ***************************** ***************************** ***************** jf 

int di_modify_LoadSet(void) 

{ 

EntityList *tmp = NULL; 
int i=0; 

tmp = malloc (sizeof (EntityList)); 

for(tmp = LoadList; tmp != NULL; tmp = tmp->next) 

tmp->nodepoint[0] = veitices[(loadcoordind[i]*7)+0]+displaceobj[(loadcoordind[i]*3)+0]*floats- 
>LoadFactor*floats->exager; 

tmp->nodepoint[l] = vertices[(loadcoordind[i]*7)+l]+displaceobj[(loadcoordind[il*3)+l]*floats->LoadFactor*floats->exager; 

tmp->nodepoint[2] = vertices[(loadcoordind[i]*7)+2]+displaceobj[(loadcoordind[i]*3)+2]*floats->LoadFactor*floats->exager; 

VCEntity_SetPositionPoint (tmp->nodeobj, tmp->nodepoint); 
i++; 

} 

free(tmp); 

1 

//******************* ************************************** *********************// 

// Function: diToggleConstrFunc - toggles visibility of constraints on model // 

II * ********************* *********************** ****** ********* ********** *****♦*♦// 

int diToggleConstrFunc(ECEvent ‘event, ECEventData data, ECAction ‘action) 

( 

EntityList *tmp = NULL; 

void **args = action->parameters; 

tmp = malloc (sizeof (EntityList)); 

if(ECArgReferenceGetValue(args[ 1 ], (void *)&switches->constraintstate, &data. focus) == VC_ERR) 
switches->constraintstate = 1; 

if (switches->constraintstate = 1) 

for(tmp = ConstrList; tmp != NULL; tmp = tmp->next) 

VCVisual_ModifyMode (tmp->vis, VC_VISIBLE, 0); 

else 

for(tmp = ConstrList; tmp != NULL; tmp = tmp->next) 

VCVisual_ModifyMode (tmp->vis, 0, VC_VISIBLE); 

free(tmp); 

} 

//**** ****** ****** ********** ***** ******************** ****************** *********^ 

// Function: diCreateConstrObjectsFunc - creates the constraints on the model// 

//******************* *********************************** *************** ******♦*♦// 

int diCreateConstrObjectsFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

int i; 

void **args = action->parameters; 

EntityList *newltem; 
dmEuler o; 
dmScale s; 

ConstrList = malloc (sizeof (EntityList)); 

ConstrList = NULL; 

for(i = 0; i < CONSTRAINTSET_NUM; i++){ 

newltem = malloc (sizeof (EntityList)); 

// Initialization 

newItem->nodeobj = newltem->vis = newltem->next = NULL; 


// Populate the new item 

newItem->nodeobj=VCEntity_Create(NULL,0); 

newItem->vis=VCVisual_CreateGeometry("greensphere"); 

VCVisuaLSetlntersectMask (newltem->vis, 1); //Create Intersect Mask 
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VCEntity_AttachAttribute (newItem->nodeobj, newltem->vis); 
newltem->nodepoint[0] = vertices[(constrcoordind[i]*7)+0]; 
newltem->nodepoint[ 1 ] = vertices[(constrcoordind[i]*7)+l]; 
newltem->nodepoint[2j = vertices[(constrcoordind[i]*7)+2]; 

// Add the new item to the beginning of the list 
if (ConstrList == NULL) 

ConstrList = newltem; 

else{ 

newltem->next = ConstrList; 

ConstrList = newltem; 

} 

// Creates the points on the model and sets it invisible 
s[0] = floats->xyzmax/175; 
s[l] = floats->xyzmax/175; 
s[2] = floats->xyzmax/l75; 

VCEntity_SetPositionPointEulerScale (ConstrList->nodeobj, ConstrList->nodepoint, NULL, s); 
VCVisuaLModifyMode (ConstrList->vis, 0, VCJVISIBLE); 

} 

di_modify_ConstraintSet(); 

} 

//*************************************************************** ****** *******♦♦// 

// Function; di_modify_ConstraintSet - modifies the constraints on the model // 

^* ****** ********************************* **************************************// 


int di_modify_ConstraintSet(void) 

{ 

HntityList *tmp = NULL; 
int i=K); 


tmp = malloc (sizeof (EntityList)); 

forttmp = ConstrList; tmp != NULL; tmp = tmp->next) 

1 tmp*>nodepoint[0] = vertices[(constrcoordind[i] 3 *7)+0]-Kiisplaceobj[(constrcoordind[i]*3)+0]*floats- 

>LoadFactor* floats ->exager; 

tmp->nodepoint[l] = vertices[(constrcoordind[i]*7)+l]+displaceobj[(constrcoordind[i]*3)+l]*floats->LoadFactor floats 

>exa.gcr 4 

tmp->nodepoint[ 2 ] = vertices[(constrcoordind[i]*7)+2]+displaceobj[(constrcoordind[i]*3)+21*noa(s->LoadFactor*noats 

>exager; 

VCEntity_SetPositionPoint (tmp->nodeobj, tmp->nodepoint); 
i++; 

} 

free(tmp); 

} 

jf***********************************************************************/f 

// Function: diCreateViewButtonFunc 

^*************************^* ************************************** ******// 
int 

diCreateViewButtonFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void * *args = action- parameters ; 

ECVisual * visual; 

VCAttribute *visattribute; 

objViewButtonref = (ECObjectReference *)args[l]; 
objViewButton = ECReferenceObject(objViewButtonref, &data.focus); 

visual = ECObjectGetVisual(objViewButton, NULL); 

if (visual == NULL) 

{ 

VC_Error( "visual was NULLVn"); 
retum(ECKeepAction); 

) 

visattribute = ECVisualGetVCAttnbute(visual); 
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ECVisualToVC (objViewButton, visual); 

ECObjectToVC(objViewButton); 

retum(ECKeepAction); 

I 

II * * ******************* * ******* * ****************************** * ** ** ***** ★// 

//Function: diCreateViewTextFunc 

U* ********************************************************************* *// 

int 

diCreateViewTextFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

ECVisual * visual; 

VCAttribute * visattribute; 

objViewTextref = (ECObjectReference *)args[l]; 
objViewText = ECReferenceObject(objViewTextref, &data. focus); 

visual = ECObjectGetVisual(objViewText, NULL); 

if (visual = NULL) 

{ 

VC_Error('’ visual was NULL\n"); 
retum(ECKeepAction); 

} 

visattribute = ECVisualGetVCAttribute( visual); 

ECVisualToVC (objViewText, visual); 

ECObjectToVC(objViewText); 
retum(ECKeep Action); 

) 

^************ ****************************************** *****************// 
// Function: di Create DataButtonFunc 

^*# *********************************************************** **********// 
int 

diCreateDataButtonFunc(ECEvent *event, ECEventData data, ECAction * action) 

{ 

void **args = action->parameters; 

ECVisual * visual; 

VCAttribute * visattribute; 

objDataButtonref = (ECObjectReference *)args[l]; 
objDataButton = ECReferenceObject(objDataButtonref, &data.focus); 

visual = ECObjectGetVisual(objDataButton, NULL); 

if (visual = NULL) 

{ 

VC_Error(" visual was NULL\n"); 
retum(ECKeepAction); 

} 

visattribute = ECVisualGetVCAttribute(visual); 

ECVisualToVC (objDataButton, visual); 

ECObjectToVC(objDataButton); 
retum(EC Keep Action); 

) 

^********* 3 ************************************************************** If 

// Function: diCreateDataTextFunc 

^*** **************** ****************** **********************************// 
int 

diCreateDataTextFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void * *args = action->parameters ; 

ECVisual *visual; 

VCAttribute * visattribute; 


E-62 



objDataTextref = (ECObjectReference *)args[l]; 
objDataText = ECReferenceObject(objDataTextref, &data.focus); 

visual = ECObjectGetVisual(objDataText, NULL); 

if (visual == NULL) 

{ 

VC_Error(’' visual was NULL\n”); 
retum(ECKeepAction); 

} 

visattribute = ECVisualGetVCAttnbute( visual); 

ECVisualToVC (objDataText, visual); 

ECObjectToVC(objDataText); 

retum(ECKeepAction); 

} 

y^#**^*^**# *************************************************** **********// 

//Function: diCreateVisButtonFunc 

yy*********** ******** ****************** ******************** ********* *♦***// 


int 

diCreateVisButtonFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void **args = action->parameters; 

ECVisual * visual; 

VCAttribute * visattribute; 

objVisButtonref = (ECObjectReference *)args[l]; 
objVisButton = ECReferenceObject(objVisButtonref, &data.focus); 

visual = ECObjectGetVisual(objVisButton, NULL); 

if (visual == NULL) 

{ 

VC_Error(" visual was NULL\n"); 
re tum(ECKeep Action); 

} 

visattribute = ECVisualGetVCAttribute(visual); 

ECVisualToVC (objVisButton, visual); 

ECObjectToVC(objVisButton); 

retum(ECKeepAction); 

} 

yy******************************************* *********************** *****// 

// Function: diCreateVisTextFunc 

yy**************** *********************** ********* ****** *****************// 


int 

diCreateVisTextFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

ECVisual * visual; 

VCAttribute * visattribute; 

VCEntity *vistextent = NULL; 

objVisTextref = (ECObjectReference *)args[l]; 
objVisText = ECReferenceObject(objVisTextref, &data.focus); 

visual = ECObjectGetVisuaKobjVisText, NULL); 

if (visual == NULL) 

{ 

VC_Error(’’ visual was NULL\n"); 
retum(ECKeepAction); 

} 

visattribute = EC VisualGetVCAttribute( visual); 

ECVisualToVC (objVisText, visual); 
ECObjectToVC(objVisText); 
retum(ECKeep Action); 
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jj * * ******* * **** * * ******************** * * ****** * ************** ************ H 

1 1 Function: ToolCreation_cb 

U** ***************** ******************************************* *♦*****♦*// 

int ToolCreation_cb(TBTool *tool) 

{ 

SliderDataStruct * myData; 

printf( M Setting up user Data structure.. An"); 

myData = (SliderDataStruct *)cal!oc(2, sizeof(SliderDataStruct)); 

TBGenSetUserData(tool, (void *)myData); 

} 


^**************** ************ ************************** *****************// 
//Function: WidgetCreation_cb 

H ****** *****************************************************************// 


int WidgetCreation_cb(VWidget *newWidget, TBTool *tool, void *data) 

{ 

SliderDataStruct *myData; 

myData = (SliderDataStruct *)TBGenGetUserData(tool); 
if ((data != NULL) && (myData != NULL)) 

{ 

if (!(strcmp((char*)data, "LoadFact"))) 

{ 

printf("Got reference to LoadFact = Ox%x\n", newWidget); 
myData->LoadFact = newWidget; 

VWScalar_Set Value(myData->LoadFact, 1 00, FALSE); 

} 

if ( !(strcmp((char*)data, "LoadDisp"))) 

{ 

printffGot reference to LoadDisp = 0x%x\n", newWidget); 
myData->LoadDisp = newWidget; 
VWDigit_SetValue(myData->LoadDisp, 100, FALSE); 

} 

if (!(strcmp((char*)data, "ThreshFact"))) 

{ 

printffGot reference to ThreshFact = Ox%x\n", newWidget); 
myData->ThreshFact = newWidget; 
VWScalar_SetValue(myData->ThreshFact,0, FALSE); 

} 

if (!(strcmp((char*)data, "ThreshDisp"))) 

I 

printf("Got reference to ThreshDisp = 0x%x\n”, newWidget); 
myData->ThreshDisp = newWidget; 
VWDigit_SetValue(myData->ThreshDisp, 0, FALSE); 

} 

if (!(strcmp((char*)data, "ExagerFact"))) 

{ 

printffGot reference to ExagerFact = 0x%x\n", newWidget); 
myData->ExagerFact = newWidget; 
VWScalar_SetValue(myData->ExagerFact, 1, FALSE); 

} ^ 

if (!(strcmp«char*)data, "ExagerDisp"))) 

{ 

printf("Got reference to ExagerDisp = 0x%x\n'\ newWidget); 
myData->ExagerDisp = newWidget; 
VWDigit_SetValue(myData->ExagerDisp, l, FALSE); 

} 

if (!(strcmp((char*)data, "ClrSclTop"))) 

{ 

printffGot reference to ClrSclTop = 0x%x\n\ newWidget); 
myData->ClrSclT op = newWidget; 
VWScalar_SetValue(myData->ClrSclTop, 1 00, FALSE); 

} 

if (!(strcmp((char*)data, "ClrSclTopDisp"))) 

{ 
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printf("Got reference to ClrSclTopDisp = Ox%x\n'\ newWidget); 
myData->ClrSclTopDisp = newWidget; 
VWDigit_SetValue(myData->ClrSclTopDisp, 100, FALSE); 

} 

if (!(strcmp((char*)data, "ClrScIBot"))) 

( 

printf("Got reference to ClrSciBot = 0x%x\n", newWidget); 
myData->ClrSclBot = newWidget; 
VWScalar_SetValue(myData->ClrSclBot,0, FALSE); 

} 

if (!(strcmp((char*)data, "ClrSclBotDisp"))) 

{ 

printf(”Got reference to ClrSclBotDisp = 0x%x\n", newWidget); 
myData->ClrSclBotDisp = newWidget; 
VWDigit_SetValue(myData->ClrSclBotDisp, 0, FALSE); 


} 

} 

yy********** ************ *************************************************// 

// Function; UpdateSlider_cb 

yy****** *************************************************** **************// 

int UpdateSliderInfo_cb(VWidget *scalarWig, VWEventlnfo *info, void *data) 

{ 

ECObject *obj; 

TBTool nhisTool; 
float32 newValue; 

SliderDataStruct *myData; 
char *calldata; 

if (!(thisTool = TBGenGetTool(data))) 

{ 

return; 

} 


calldata = (char *)TBGenGetCalldata(data); 

myData = (SliderDataStruct *)TBGenGetUserData(thisTool); 

newValue = VWScalar_GetValue(scalarWig); 
if (!(strcmp((char*)calldata, "LoadFact"))) 

{ 

VWDigit_SetValue(myData->LoadDisp, (int)(newValue), FALSE); 

} 

if (!(strcmp((char*)calldata, "ThreshFact"))) 

{ 

VWDigit_SetValue(myData->ThreshDisp, (int)(newValue), FALSE); 

} 

if (!(strcmp((char*)calldata, "ExagerFact"))) 

{ 

VWDigit_SetValue(myData->ExagerDisp, (int)(newValue), FALSE); 

) 

if (!(strcmp((char*)calldata, "ClrSclTop"))) 

VWDigit_SetValue(myData->ClrSclTopDisp, (int)(new Value), FALSE); 

} 

if (!(strcmp((char*)calldata, "ClrScIBot"))) 

{ 

VWDigit_SetValue(myData->ClrSclBotDisp, (int)(newValue), FALSE); 


} 

yy*****+* *********************************************** *****************// 

// Function: Updates lider_cb 

yy******* ********************************************* *******************// 

int UpdateSlider_cb(VWidget *scalarWig, VWEventlnfo *info, void *data) 

{ 

ECObject *obj; 
utnt32 *eventld; 
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TBTool *thisTool; 
float32 newValue; 

SliderDataStruct *myData; 
char *calldata; 

float32 delta,out_new; 

if (!(thisTool = TBGenGetTool(data))) 

return; 


calldata = (char *)TBGenGetCalldata(data); 

myData = (SliderDataStruct *)TBGenGetUserData(thisTool); 

newValue = VWScalar_GetValue(scalarWig); 

if (!(strcmp((char*)calldata, "LoadFact"))) 

VWDigit_SetValue(myData->LoadDisp, (int)(newValue), FALSE); 
floats->LoadFactor = (float32)(newVa!ue)/100.0f; 
di_modify_FEM(); 

if (switches->meshdynmode== 1 ) di_modify_Mesh(); 

di__modify_LoadSet(); 

di_modify_ConstraintSet(); 

} 

if ( !(strcmp((char*)calldata, "ThreshFact"))) 

VWDigit_SetValue(myData->ThreshDisp, (int)(newValue), FALSE); 
floats->threshold = ((float32)(newValue)/100.0f); 
floats->out_vals[ 1 ] = floats->absmax*floats->threshold; 
di_modify _ClrScl(); 
di_modify_FEM(); 

if (switches->meshdynmode“l) di_modify_Mesh(); 

} 

if (!(strcmp((char*)calldata, "ExagerFact"))) 

V WDi gi t_S e t V al ue(my Data->ExagerDi sp, (int)(new Value), FALSE); 

floats ->exager = (float32)(newValue); 

di_modify_FEM(); 

if (switches->meshdynmode==l) di_modify_Mesh(); 

di_modify_ConstraintSet(); 

di_modi fy_LoadSet(); 

} 

if (!(strcmp{(char*)calldata, "ClrSclTop"))) 

VWDigit_SetValue(myData->ClrSclTopDisp, (int)(newValue), FALSE); 
floats->clrscltop = (f1oat32)(newValue)/100.0f; 
floats->out_vals[2]=floats->out_min+ 

(floats->clrscltop* 

(floats->ou t_max-floats->out_mi n ) ) ; 

di_modify_ClrScl(); 

di_updateclrscltxt(); 

di_modify_FEM(); 

) 

if (!(strcmp((char*)calldata, "ClrSclBot 11 ))) 

VWDigit_SetValue(myData->ClrSclBotDisp, (int)(new Value), FALSE); 
floats->clrsclbot = (float32)(newValue)/100.0f; 

floats->out_vals[0]=floats->out_min+ 

(floats->drsclbot* 

(floats->out_max-floats->out_min)); 

di_modify_ClrScl() ; 
di_updateclrscltxt(); 
dLmodify_FEM(); 


} 

ft***********************************************************************// 

f! Function: SetSliders_cb 

^******* ***************************** ************ *************** ********// 
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int SetSliders_cb(ECObject *obj, VCBody *body, VCAttribute *hmb, TBTool *tool) 

{ 

SliderDataStruct * myData; 

myData = (SliderDataStruct *)TBGenGetUserData(tool); 

VWScalar_SetValue(myData->LoadFact, 1 00, FALSE); 
VWDigit_SetVaiue(myData->LoadDisp, 100, FALSE); 
VWScalar_SetValue(myData->ThreshFact,0, FALSE); 
VWDigit_SetValue(myData->ThreshDisp, 0, FALSE); 
VWScalar_SetValue(myData->ExagerFact, 1 , FALSE); 
VWDigit_SetValue(myData->ExagerDisp, 1, FALSE); 
VWScalar_SetValue(myData->ClrSclTop, 1 00, FALSE); 
VWDigit_SetValue(myData->ClrSclTopDisp, 100, FALSE); 
VWScalar_SetValue(myData->ClrSclBot,0, FALSE); 
VWDigit_SetValue(myData->ClrSclBotDisp, 0, FALSE); 

} 

yy* **************************************************************** ******// 

H Function: ResetSliders_cb 

yy* ********* ****** *************** ************************* ******* 4c *******yy 

int ResetSliders_cb(ECObject *obj, VCBody *body, VCAttribute *limb, TBTool *tool) 

{ 

SliderDataStruct * myData; 

myData = (SliderDataStruct *)TBGenGetUserData(tool); 

VWScalar_SetValue(myData->LoadFact, 1 00, FALSE); 
VWDigit_SetValue(myData->LoadDisp, 100, FALSE); 
VWScalar_SetValue(myData->ThreshFact,0, FALSE); 
VWDigit_SetValue(myData->ThreshDisp, 0, FALSE); 
VWScalar_SetValue(myData->ExagerFact, 1 , FALSE); 
VWDigit_SetValue(myData->ExagerDisp, 1 , FALSE); 
VWScalar_SetValue(myData->ClrSclTop, 100, FALSE); 
VWDigit_SetValue(myData->ClrSclTopDisp, 100, FALSE); 
VWScalar_SetValue(myData->ClrSclBot,0, FALSE); 
VWDigit_SetValue(myData->ClrSclBotDisp, 0, FALSE); 

} 


/* PUBLIC FUNCTION DEFINITIONS ================ 

extern void RegisterScaleToolFunctions(void) 

{ 

TBRegisterToolCreationCallbackCmyToolCreation' , 
ToolCreation_cb); 

TBRegisterGenericWidgetCreationCallbackC’myWidgetCreation", 

WidgetCreation_cb); 

TBRegisterGenericWidgetCallbackCUpdateSliderlnfo’', 

UpdateSliderInfo_cb); 

TBRegisterGenericWidgetCaliback("UpdateSlider M , 

Updates lider_cb); 

TBRegisterGenericObjectSelectCallbackCsetSIiders", 

SetSliders_cb); 

TBRegisterGenericObjectSelectCallback("resetSliders", 

ResetSliders_cb); 

} 


yy* ** ** *********************** ****************************************** *// 

H Function: main 

yy* ** * *** >f( * ******** ** *************************************************** *// 

int 

main (int argc, char **argv) 

{ 

extern void RegisterScaleToolFunctions(void); 
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points=( Points *)malloc(sizeof(Points)); 
switches=(S witches *)malloc(sizeof(Switches)); 
floats=(Floats *)rnalloc(sizeof(Floats)); 
chars=(Chars *)malloc(sizeof(Chars)); 
vcfloats=(VCfloats *)rnalloc(sizeof(VCfloats)); 

intersectionReportData=( VCIntersectionReportData *)malloc(sizeof(VCIntersectionReportData)), 
objFEM=(ECObject *)malloc(sizeof(ECObject)); 

objFEMref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objMesh=(ECObject *)malloc(sizeof(ECObject)); 

objMeshref=(ECObjectReference *)ma]]oc(sizeof(ECObjectReference)); 
objFEMText=(ECObject *)malloc(sizeof(ECObject)); 

objFEMTextref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objClrScl=(ECObject *)malloc(sizeof(ECObject)); 

objClrSclref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objClrSc!Grid=(ECObject *)malloc(sizeof(ECObject)); 

objClrSclGridref=(ECObjectReference *)maI!oc(sizeof(ECObjectReference)); 
objViewButton=(ECObject * )mal loc( si zeof( EC Object)); 

objViewButtonref=(ECObjectReference *)malloc(sizeof3ECObjectReference)); 
objViewText=(ECObject *)malloc(sizeof(ECObject)); 

objViewTextref=(ECObjectReference ^)malloc(sizeof(ECObjectReference)); 
objDataButton=(ECObject *)malloc(sizeof(ECObject)); 

objDataButtonref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objDataText=(ECObject *)malloc(sizeof(ECObject)); 

objDataTextref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objVisButton=(ECObject *)malloc(sizeof(ECObject)); 

objVisButtonref-(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
obj Vi sText=(EC Object *)malloc(sizeof(ECObject)); 

objVisTextref=(ECObjectReference *)maIloc(sizeof(ECObjectReference)); 

femtextstring=( VC Geometry *)malloc(sizeof(VCGeometry)); 
clrscltextstring=( VC Geometry *)malloc(sizeof(VCGeometry)); 

switches->navstate=l ^/navmode 

switches->navrnode=2;//navmode 

switches->set 1 =0J/sct 1 

switches ->set2=0;//set2 

switches->picknode=0;//picknode 

switches ->meshdynmode= 1 ;//meshdynmode 

switches->outtypenum=0;//0 is node type output, 1 is element type output 

switches->outsubnum=0;//node or element subtype index (0-4) in output array 

switches->animmode- 1 ; 

switches- >startanim=- 1 ^/meshdynmode 

switches->loadcasestate=0; 

switches->constraintstate=0; 

floats->LoadFactor= 1 .0; 
floats->exager=l .0; 
floats ->threshold=0.0; 
floats- >beamdelta= 1 00; 
floats->xyzmax=0.0; 
floats ->absmax=0.0; 
floats->out_min= 1 00000; 
floats ->ou tmax=- 1 00000 ; 


floats->clrscltop=l .0; 
floats->clrsclbot=0.0; 
floats->femsclbotl[0]= 0.0; 

floats->femsclbotl[l]= 0.0; 

floats->femsclbotl[2]= 0.0; 

floats->femsclbotr[0]= .03; 

floats->femsclbotr[l]= 0.0; 

floats->femsclbotr[2]= 0.0; 

floats->femscltopr[0]= .03; 

floats->femscltopr[l]= .294; 

floats->femscltopr[2]= 0.0; 

floats->femscltopl[0j= 0.0; 

floats->femscltopl[l]= .294; 

floats->femscltopl[2]= 0.0; 

floats->alphainmg= 1 .0; 


floats->alphathresh= 0.7; 
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floats->alphaoutmg= 0.0; 

vcfloats->posmaxcolor[0] = 1 0;//red 
vcfloats->posmaxcolor[ 1]= 0.0; 

vcfloats->posmaxcolor[2]= 0.0; 
vcfloats->posmincolor[0]= 1 .0;//yellow 
vcfloats->posmincolor[l]= 1.0; 
vcfloats->posmincolor[2]= 0.0; 
vcfloats->negmincolor[0]=0.0;//greenblue 
vcfloats->negmincolor[ 1 ]= 1 .0; 

vcfloats->negmincolor[2]= l .0; 
vcfloats->negmaxcolor[0]=0.0;//green 
vcfloats->negmaxcolor[ 1 ]= 1.0; 

vcfloats->negmaxcolor[2]= 0.0; 
vcfloats->posthreshcolor[0]=0.5;//white 
vcfloats->posthreshcolor[ 1 ]= 0.5; 

vcfloats->posthreshcolor[2]= 0.5; 

vcfloats->negthreshcolor[0]= 1 .0;//white 
vcfloats->negthreshcolor[ 1 ]= 1 .0; 

vcfloats->negthreshcolor[2]= 1.0; 

vcfloats->outofrngcolor[0]=0.0;//black 
vcfloats->outofmgcolor[l]= 0.0; 
vcfloats->outofmgcolor[2]= 0.0; 

chars ->outtxt[ 200]=" "; 
chars->scltxt[200]= w 

ucf_fem2vr(); 

ECUserActionFuncRegister(diCreateFEMObjectFunc,"diCreateFEMObjecf\ 

"Converts FEM output files into objects", 

ECDataTypeObject, "ObjectName", 
ECDataTypeFloatVar, "ObjectScale", 

ECDataTypeNull); 

ECUserActionFuncRegistertdiCreateFEMMeshFunc/diCreateFEMMesh", 

"Creates FEM wireframe mesh", 

ECDataTypeObject, "ObjectName", 
ECDataTypeFloatVar, "ObjectScale", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateFEMTextFunc, fl diCreateFEMText M , 

"Creates an dynamic text visual in femtext", 

ECDataTypeObject, "femtext 11 , 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateClrSclTextFunc,"diCreateClrSclText", 

"Creates an dynamic color scale number visual in clrscltext", 
ECDataTypeObject, "clrscltext", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateColorSclFunc,"diCreateColorScr\ 

"Creates an color scale visual in femscale", 

ECDataTypeObject, "colorscale", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateColorSclGridFunc,"diCreateColorSclGrid", 

"Creates an color scale grid visual in femscalegrid", 

ECDataTypeObject, "colorgrid", 

ECDataTypeNull); 

ECUserActionFuncRegister(diToggleAnimFunc,"diToggleAnim‘\ 

"Toggles animation of FEM on and off 1 , 

ECDataTypelntVar, "StartAnim", 

ECDataTypeNull); 

ECUserActionFuncRegister(diToggleAnimModeFunc, M diToggleAnimMode\ 

"Toggles animation mode from Sawtooth to Ramp", 

ECDataTypelntVar, "AnimMode", 

ECDataTypeNull); 

ECUserActionFuncRegister(diImmersDataFunc, "dilmmersData", 

"Get data at intersection point", 

ECDataTypeString, "bodyPart", 

ECDataTypeEvent, "Event", 

ECDataTypeObject, "FEMObj", 
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ECDataTypeNuIl); 

ECUserActionFuncRegister(diBodyStartupPosFEMFunc, "diBodyStartupPosFEM", 

"Set Startup Body Position FEM Viewpoint", 

ECDataTypeNuIl); 

ECUserActionFuncRegister(diBodyMoveToFunc, "diBodyMoveTo", 

"Moves the body to a given viewpoint at a given speed", 

ECDataTypelntVar, "View Number”, 

ECDataType Float Var, ”speed(m/s)", 

ECDataTypeNuIl); 

ECUserActionFuncRegister(diNavModeFunc,”diNavMode", 

"Sets navigation mode parameter", 

ECDataTypelntVar, "navmode", 

ECDataTypeNuIl); 

ECUserActionFuncRegister(diSetViewFunc,"diSetView", 

"Sets user defined viewpoints", 

ECDataTypelntVar, "viewnum", 

ECDataTypeNuIl); 

ECUserActionFuncRegisterCdiToggleMeshDynFunc/'diToggleMeshDyn", 

"Sets navigation mode parameter", 

ECDataTypelntVar, "meshdynmode", 

ECDataTypeNuIl); 

ECUserActionFuncRegisteKdiOutputSetFunc/'diOutputSet", 

"Sets FEM output data set", 

ECDataTypelntVar, "outtypenum", 

ECDataTypelntVar, "outsubnum", 

ECDataTypeNuIl); 

ECUserActionFuncRegister(diToggleNavStateFunc,"diToggleNavState", 

"Toggles navigation mode from No HeadTrack to HeadTrack", 

ECDataTypelntVar, "NavState", 

ECDataTypeNuIl); 

ECUserActionFuncRegister(diCreateLoadObjectsFunc,"diCreateLoadObjects", 

"Creates load case objects", 


ECDataTypeNuIl); 

ECUserActionFuncRegister(diToggleLoadFunc,"diToggleLoad", 

"Toggles loadcase visual", 

ECDataTypelntVar, "LoadCase State", 

ECDataTypeNuIl); 

ECUserActionFuncRegister(diCreateConstrObjectsFunc,"diCreateConstrObjects'\ 

"Creates constraints objects", 


ECDataTypeNuIl); 

ECUserActionFuncRegister(diToggleConstrFunc,"diToggleConstr", 

"Toggles constraints visual", 

EC DataType In t V ar, " Cons trCaseS tate " , 

ECDataTypeNuIl); 

ECUserActionFuncRegisteKdiCreateViewButtonFunc/’diCreateViewButton", 

"Creates a View button attached to viewpoint", 

ECDataTypeObject, "viewbutton", 
ECDataTypeNuIl); 

ECUserActionFuncRegister(diCreateViewTextFunc,"diCreateViewText N , 

"Creates a View text attached to viewpoint", 

ECDataTypeObject, "viewtext", 

ECDataTypeNuIl); 

ECUserActionFuncRegisteKdiCreateDataButtonFuncCdiCreateDataButton", 

"Creates a Data button attached to viewpoint", 

ECDataTypeObject, "databutton", 
ECDataTypeNuIl); 

ECUserActionFuncRegister(diCreateDataTextFunc, M diCreateDataText", 

"Creates a Data text attached to viewpoint", 

ECDataTypeObject, "datatext", 

ECDataTypeNuIl); 

ECUserActionFuncRegister(diCreateVisButtonFunc,"diCreateVisButton", 

"Creates a Visualize button attached to viewpoint", 
ECDataTypeObject, "visbutton", 

ECDataTypeNuIl); 

ECUserActionFuncRegister(diCreateVisTextFunc,"diCreateVisText", 

"Creates a Visualize text attached to viewpoint", 

ECDataTypeObject, "vistext", 

ECDataTypeNuIl); 


RegisterScaleToolFunctions(); 
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//printfC'WHY IS THIS HAPPENING\n"); 

VC_AttachBodyCreateCallback (di_create_body_handlei\ NULL); 
dVISE_Initialise(argc.argv); 

VC_MainLoop(); 



j * ******************************** ****************************************************** 

DVET Release 2.2/1 1/98 for SGI Workstation 
fem2vrll20.h 
11 February 1998 
Copyright 1998 

Dual Incorporated/University of Central Florida 


typedef struct NODE_DATA 

{ 

long int A; 
double x; 
double y; 
double z; 
double dx; 
double dy; 
double dz; 

double output_data[5]; 
//add in Oct., 1997 

intH; 

//add in Oct., 1997 
} NODE_DATA; 

typedef struct ELEMENT_REL 

{ 

long int A; 
double data[5]; 

} ELEMENT.REL; 


typedef struct ELEMENT_DATA 

{ 

long int A; 
long int B[4]; 

double C[5]; 
long int D; 

//revised on Sept 30, 1997 

//E is the index for internal element (default) and zero for surface element 
int E; 

//F is an index to reference the element property 
int F; 

//revised on Sept 30, 1997 

} ELEMENT_D AT A; 

//revised on Sept 30, 1997 
typedef struct ELEMENT_PROPERTY 
{ 

//A is the type of element 
int A; 

//revised in Oct., 1997 
int Hy/for material id. 

//revised in Oct., 1997 

// B is the element properties, according to the manual of FEMAP neutral file 
double Bl 100]; 

} ELEMENT_PROPERTY ; 

//above are revised on Sept 30, 1997 

typedef struct NAMES 

{ 

char actual_case_name[30]; 
char actual_set_name[10][30]; 

} NAMES; 

//revised in Oct. ,1997 
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typedef struct MATERIAL 

{ 

int A; 

char title[25] ; 

double Young_Modulus[3]; 
double Shear_Modulus[3]; 
double Poisson_Ratio[3]; 
double GMatrix(21]; 
double alpha[6]; 
double k[6]; 

double thermal_cap,density,damping, temperature; 
double tension_limit[2]; 
double comp_limit[2]; 
double shearjimit; 

} MATERIAL; 

// 

typedef struct CONSTRAINT 

{int A; 

char B[25] ; 

long int NUM; 

fpos_t file_constraint; 

long int *ID; 

int * INDEX; 

} CONSTRAINT; 

typedef struct COORDINATE 

{ 

int A j/id 
int B; //id of 
int CJ / type 
char D[25); 

double E[3] ^/origin coordiantes 
double F[3];//rotation angles 
} COORDINATE; 

typedef struct LOAD 

{ 

int SET_ID; 
char NAME[25]; 
fpos_t load_file,nt_file,et_file; 
long int NUM,NT_NUM,ET_NUM; 
long int *ID,*NT_ID,*ET_ID; 
int *TYPE,*FACE; 

double *VALUE,*NT_VAHJE,*ET_VALUE; 

} LOAD^/the default limitation for load set number is 100 


//revised in Oct., 1997 

extern struct NODE_DATA *NODE_P; 
extern struct ELEMENT_D AT A *ELEMENT_P; 
extern struct NAMES *names; 

//revised in Oct., 1997 

extern struct MATERIAL *MATERIAL_P; 
extern struct COORDINATE *COORDINATE_P; 
extern struct CONSTRAINT CONSTRAINT_SET[100]; 
extern struct LOAD LOAD_SET[100j; 

//revised 16 Jan 98 

extern long int NODE_NUM,ELEMENT_NUM,LOADSET_NUM,LOADSET_PICK, 
CONSTRAINTSET_NUM,CONSTRAINTSET_PICK; 

//revised 16 Jan 98 
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/**********************************♦**************************************************** 

DVET Release 2.2/1 1/98 for SGI Workstation 

fem2vrsgi.c 

1 1 February 1998 

Copyright 1998 

Dual Incorporated/University of Central Florida 

26/12/97 Ola Fakinlede Added gui prompt for file input 

// 

yy**** ******* *************************************** ******* ****** ********yy 

#include "stdio.h" 

#include "string. h" 

#include "malloc.h" 

//#include "process.h" 

#include "stdlib.h" 

yy********************** u S er defined header file **********************// 


#include "fm2vrl 120.h” 

yy* ********* ******************** ************* ************** ****** ****** **// 


struct NODE_DATA *NODE_P; 
struct ELEMENT_DAT A *ELEMENT_P; 
struct NAMES * names; 

//added with OCT., 1997 

struct MATERIAL *MATER1AL_P; 
struct COORDINATE *COORDINATE_P; 
struct LOAD LOAD_SET[100]; 
struct CONSTRAINT CONSTRAINT_SET[100]; 

//added with OCT., 1997 

struct ELEMENT.REL *ELEMENT_TMP; 
struct ELEMENT_DATA *ELEMENT_INF; 

//revised on Sept 30, 1997 

struct ELEMENT_PROPERTY *ELEMENT_PROPERTY_P; 

//above revised on Sept 30, 1997 

NODE_NUM,ELEMENT_NUMl,ELEMENT_NUM,output_set_num,LOADSET_NUM,LOADSET_PICK,CONSTRAINTSET_NL) 

M,CONSTRAINTSET_PICK; 
long int u; 

long int IA,IB,IC,IE; 

//revised on Sept 30, 1997 
int ELEMENT_PRO__NUM ; 

//above revised on Sept 30, 1997 
// added with OCT., 1997 

int MATER IAL_NUM; 
int CONSTRAINT_NUM; 
int COORDINATEJVUM; 
int LOAD_NUM; 

// added with OCT., 1997 

//Function Prototypes 
//revised on Oct. 22,1997 

int compare(long int ELEMENT_i,long int NODE_i); 

//revised on Oct. 22, 1997 
long int FindNid(long int u); 
long int FindEid(long int u); 

y* ******************* ********* =^***£xtemal Declarations ******************/ 


extern char *file_prompt(); " Function that calls file prompt 

extern char *bool_prompt(char *); H Function that calls bool prompt 

extern char *case_prompt(char set_name[3000] [30], int); // Function that calls case prompt 
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extern char **output_data_prompt(char temp_name[2000][40], int); ft Function that calls output data prompt 

extern char *loadset_prompt(char loadset_names[100][30], int); // Function that calls load prompt 

extern char *constraintset_prompt(char constraintset_names[100][40], int); U Function that calls constraint prompt 

U * * * ******************************** ******************************** **** // 

//Function: main 
// Inputs: none 
// Outputs: 

// Date revised and comments: 

U ******************************** ****** ******************************** * // 

//void main(void) 
void ucf_fem2vr(void) 

long int CHECKD,NODE_i,ELEMENT_i,CHECKDD,case_set_num[2000], q; 

char OUTPUT[30], set_name[3000][30],temp_set_name[2000][30],out_set_name[2000][30], temp_name[2000][40]; 
char buffer[200]; 

double X,Y,Z,TIME[2000],MAX_VALUE[2000],MIN_VALUE[2000],AMAX_VALUE[2000]; 

//add in Oct., 1997 

long int NODE_NUM„S, ELEMENT_NUM_S; 

//add in Oct., 1997 

long int ID[20],Total_num[2000],case 
int flag, 

flag_open_file = 0, 
flag_solid = 0, 

LOAD_YES = 0, 

CONSTRAINT_YES = 0; 

FILE *NEU_INP; 

// 

FILE *fp,*fpl,*fp2, *fp_load, *fp_constraint; 

//add in Oct., 1997 

FILE *tmpl,*tmp2; 
int V_NUM = 5,U_NUM = 5; 

//add in Oct., 1997 

// 

//int FLAG,ID_BLOCK,CHECK,TYPE[2000],V[5],U[5],V_NUM,U_NUM,case_n; 
int FLAG, ID_BLOCK,CHECK,TYPE[ 2000], V[5],U[5],case_n; 
int i,CHECKl ,II,case_i,case_nn, r; 
int 11,12,13,14; 

fpos_t file_node,file_element,file_output[2000]; 

//revised on Sept 30, 1997 
fpos_t file_pro; 

//revised on Sept 30, 1997 
//revised in Oct., 1997 

fpos_t File_mat,file_coordinate; 

char * filename; // FEMAP Neutral File 

char *bool; H YES or NO 

char gui_name[3] , // Name id for gui 

char *case_name; H case name 

char case_names[3000][30]; // set.name without carriage return 

char **output_data = NULL; // output data 

int j = 0, m = 0, k = 0; 

char '♦'loadset.name = "initialization"; // load name 

char loadset_names [ 1 00] [30] ; // loadset_name without carriage return 

char *constraintset_name = "initialization"; // constraint name 

char constraintset_names[ 1 00] [40] ; // constraintset_name without carriage return 

//revised in Oct., 1997 

//************* ****** *****open neutral ****** *****************11 
I* 

while(flag_open Jile == 0){ 


num[2000]; 

// Flag indicating open file 

// Flag indicating solid 

// Flag indicating yes to load loads 

// Flag indicating yes to load constraints 
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filename = file_prompt(); 

//stmcpy(filename, "ngstneu", 9); 
if(stmcmp(filename, "cancel”, 6) == 0) 
exit(l); 

if(*filename == NO 5 ) 
continue; 

else if((NEU_INP = fopen( filename, T+ n )) != NULL) 
flag_open_file = 1; 

} 

*/ 

sleep(5); 

//system("clear"); 

printf("\n\n\n\nPlease enter the new FEMAP neutral file\n"); 
scanf("%s”, OUTPUT); 

//strcpy(OUTPUT,"ngst.neu"); //BEC+ 

if((NEU_INP=fopen(OUTPUT,"r+"))— NULL) 

{ 

printf("Error in opening file: %s\n\OUTPUT); 
exit(l); 

} 

yy* ****** *****************************♦**********************************// 

1 1 Check FEMAP neutral file 

yy ********************** ******************************************** *+***// 


FLAG = 1; 

while((!feof(NEU_INP)) && (FLAG = 1)) 

{ 

fscanf(NEU_ENP, ,, %d ,, ,&CHECK); 

fgets(buffer,200,NEU_INP); // Move the file pointer 

i f((CHECK==- 1 )&&(FLAG== 1 )) 

{ 

fscanf(NEU_INP,"%d",&ID_BLOCK); 

fgets(buffer,200,NEU_INP); 

//printf( ,, %d\nMD_BLOCK); 

switch(ID_BLOCK) 

{ 

case 100; 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP,"%d",&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK==-l) 

{ 

FLAG-1; 

} 

break; 

case 405 : 

// printfC Process the information about corrdinate systems... \n"); 

//add in Oct., 1997 


fgetpos(NEU_INP,&file_coordinate); 

COORDINATE_NUM=0; 


//add in Oct., 1997 

label405; 

fscanf(NEU_INP,"%d",&CHECK); 

if(CHECK!=-l) 

{ 

//add in Oct., 1997 

COORD IN ATE_NUM=COORDINATE_NUM+l; 

//add in Oct., 1997 

fgets(buffer,200,NEUJNP); 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_INP); 
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goto label405; 

} 

FLAG= 1 ; 
break; 

case 475: 

//printf("Process the text in formation... \n”); 
label475: 

fscanf(NEU_INP/%d'\&CHECK); 
if(CHECK!=-l ) 

{ 

for(i=0;i<4;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP,"%d",&II); 

for(i=0;i<=ll;i++) 

{ 

f gets ( b u ffer, 200,NEU_INP ) ; 

} 

goto label475; 

} 

FLAG=1 ; 
break; 

case 410: 

//printf(" Process the varaible information... \n"); 
label410: 

fscanf(NEU_INP,"%d l \&CHECK); 

if(CHECK!=-l) 

{ 

for(i=0;i<4;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto label410; 

} 

FLAG=1; 

break; 

case 413: 

// printfC’Process the layer information...' Vn"); 

label413: 

fscanf(NEU_INP,' , %d ,, ,&CHECK); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_tNP); 
fgets(buffer,200,NEU_INP); 
goto label413; 

} 

FLAG=1; 

break; 

case 470: 

//printfC Process the point information. .An"); 
label470: 

fscanf(NEU_INP, ,, %d",&CHECK); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_INP); 
goto labe!470; 

} 

FLAG=1; 

break; 

case 47 1 : 

// printf("Process the curve information.. An"); 

label47 1 : 

fscanf(NEU_INP t " %d " , &CHEC K); 
if(CHECK!=-l) 

{ 

for(i=0;i<4;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 
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goto labe!47 1 ; 


) 

FLAG=1 ; 
break; 

case 472: 

//printf( "Process the surface information... \n"); 
labe!472: 

fscanf(NEU_INP,"%d",&CHECK); 

if(CHECK!=-l) 

{ 

for(i=0;i<3;i++) 

{ 

fgets(buffer,200,NEU_INP) ; 

} 

goto labe!472; 


FLAG=1 ; 
break; 

case 473: 

//printff Process the volume information.. An"); 
label473: 

fscanf(NEU_ENP,"%d N ,&CHECK); 

if(CHECK!=-l) 

{ 

for(i=0;i<3;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto labe!473; 


//revised in Oct., 1997 


//revised in Oct., 1997 


//revised in Oct, 1997 


//revised in Oct. 1997 


FLAG=1 ; 
break; 

case 474: 

//printf(" Process the boundary information.. An”); 
label474: 

fscanf(NEU_INP,"%d\&CHECK); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_INP); 
goto label474; 

} 

FLAG= 1 ; 
break; 

case 401 : 

//printfC Process the material information... \n"); 


MATER IAL_NUM=0; 
fgetpos(NEU_lNP,&file_mat); 


label40 1 : 

fscanf(NEU_INP, N %d",&CHECK); 
fgets(buffer,200,NEU_INP); 
if(CHECK !=- 1 ) 

{ 


MATERIAL_NUM=MATERIAL_NUM+1 ; 

// printf("m=%d\n",MATERIAL_NUM); 


for(i=0;i<32;i++) 

{ 

fgets(buffer,200,NEU_INP); 


) 

goto label40l ; 

} 

FLAG=1 ; 
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break; 


case 402; 

//printf("Process the property information...\n"); 

//revised on Sept 30, 1997 

ELEMENT_PRO_NUM=0; 

fgetpos(NEU_INP,&file_pro); 

//revised on Sept 30, 1997 
label402: 

fscanf(NEU_INP."%d ,, ,&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

{ 

//revised on Sept 30, 1997 

ELEMENT„PRO_NUM=ELEMENT_PRO_NUM+ 1 ; 
//revised on Sept 30, 1997 

fgets(buffer,200,NEU_INP); 
fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP, , ’%d' , ,&Il); 
fgets(buffer,200,NEU_INP); 
for(i=0;i<(float)(H/8)+l .0;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP,"%d",&II); 
fgets{ buffer, 200, NEU_ENP); 
for(i=0;i<(float)(II/5)+ 1 .0;i++) 

{ 

fgets(buffer,200,NEUJNP); 

} 

goto label402; 

} 

FLAG= 1 ; 
break; 

case 403: 

NODE_NUM=0; 

fgetpos(NEU_INP,&file_node); 

//printf(" Process the node information. .An"); 
label403: 

fscanf(NEU_INP,”%d; , ,&CHECK); 
if(CHECK !=- 1 ) 

{ 

fgets(buffer,200,NEU_INP); 
NODE_NUM=NODE_NUM+ 1 ; 

// printf("n=%ld\n ,, ,NODE_NUM); 

goto label403; 

} 

FLAG= 1 ; 
break; 

case 404: 

fgetpos(NEU_INP,&file_element); 

ELEMENT_NUM=0; 

ELEMENT_NUM 1 =0; 

// printfC Process the element information.. An"); 

label404: 

fscanf(NEU_INP, ,, %d; , ) &CHECK); 

if(CHECK!=-l) 

{ 

fscanf(NEU_INP,"%d,%d,%d,%d,",&Il,&I2,&I3,&I4); 

switch(I4) 

{ 

case 0: 

ELEMENT_NUM=ELEMENT_NUM+ 1 ; 
break; 

case 2: 

ELEMENT_NUM=ELEMENT_NUM+ 1 ; 
break; 

case 3: 

ELEMENT_NUM=ELEMENT_NUM+ 1 ; 
break; 

case 4: 
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ELEMENT_NUM=ELEMENT_NUM+1; 

break; 

case 5: 

ELEMENT_NUM=ELEMENT_NUM+i ; 
break; 

case 6; 

flag_solid = 1 ; 

ELEMENT_NUM=ELEMENT_NUM+4; 

break; 

case 7: 

flag_solid = l ; 

ELEMENT_NUM-ELEMENT_NUM+5; 

break; 

case 8: 

flag_solid = 1 ; 

ELEMENT_NUM=ELEMENT_NUM+6; 

case 9: 

break; 

case 10: 

flag_solid = 1; 

ELEMENT_NUM=ELEMENT_NUM+4; 

break; 

case 1 1 : 

flag_solid = 1; 

ELEMENT_NUM=ELEMENT_NUM+5 ; 
break; 

case 12: 

flag_solid - 1 ; 

ELEMENT_NUM=ELEMENT_NUM+6 ; 
break; 

case 13: 

// ELEMENT_NUM=ELEMENT_NUM+ 1 ; 

break; 

} 

ELEMENT_NUM 1 =ELEMENT_NUM 1+1 ; 
for(i=0;i<7;i++) 

{ 

fgets (buffer, 200, NEU_DMP); 

} 

if(I4==13) 

{ 

CHECKXM); 
while(CHECKD !=- 1 ) 

{ 

fscanf(NEU_INP, M %ld,\&CHECKD); 

fgets(buffer,200,NEU_INP); 

} 

} 

goto label404; 

} 

FLAG= 1 ; 
break; 

^* ********* *********** CONSTRAINT INFORMATION *****************************// 

case 406: 

//printfC Process the constraint information... \n"); 

//Switch block with revised Oct block below 
/* label406: 

fscanf(NEUJNP/%d/\&CHECK); 

fgets(buffer,200,NELLINP); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP, ”%d,'\&CHECK. 1 ) ; 
do{ 

fgets(buffer,200,NEU_INP); 

fscanf(NEUJNP/Vcd/\&CHECKl); 
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} while(CHECKl !=-l); 
fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,”%d,",&CHECK 1 ); 
fgets(buffer,200,NEU_INP); 
if(CHECKl !=-l) 

{ 

fscanf(NEU_INP; , %d , \&II); 

fgets(buffer,200,NEU_INP); 

for(i=0;i<II;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 


goto label406; 

} 

//Switch block with revised Oct block below 
*/ 

//revised in Oct., 1997(Switch with block above) 

CONSTRAINT.NUM = 0; 
label406: 

if(CONSTRAINT_NUM > 100) 

^ printf("The number of constraint sets exceeds the default value of 100\n"); 

exit(0); 

} 

fscanf(NEUJNP,"%d,’\&ll); 
fgets (buffer, 200, NEU_INP); 
if(Il != -1) 

{ 

CONSTRAINT_SET[CONSTRAINT_NUM].A = II ; 
fgets(CONSTRAINT_SET[CONSTRAINT_NUM].B, 25, NEU_INP); 
CONSTRAINT_SET[CONSTRAINT_NUM].NUM = 0; 

feetpos(NEU_INP,&(CONSTRAINT_SET[CONSTRAINT_NUM].file_constraint)); 

fscanffNEU-INP/'&d^&CHECKl); 


label406 1 : 

if(CHECKl != -1) 

{ 

CONSTR AINT_SET[CONSTR AINT_NUM] . NUM= 

CONSTRAINT_SET[CONSTRAINT_NUM].NUM + 1 ; 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d,‘ 1 ,&CHECKl ); 
goto label4061; 

} 

fgets (buffer, 200, NEU_INP); 
fscanf(NEU_INP," %d," .&CHECK 1 ) ; 

label 4062: 

if(CHECKl != -1) 

{ 

fgets(buffer,200,NEU_INP) ; 
fscanf(NEUJNP,"%d’\&II); 
goto label4062; 

} 

fgets(buffer,200,NEU_INP); 

CONSTRAINT_NUM=CONSTRAINT_NUM+l ; 
goto label406; 


//revised in Oct., 1997(Switch with block above) 

FLAG=1 ; 
break; 

/j********************* LOAD INFORMATION 

case 407: 


******************** ** ****#**// 
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//printf("Prcoess the load information An"); 

//Switch block with revised Oct block below 
/* label407: 

fscanf(NEU_INP,"%d",&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

{ 

for(i=0;i<20;i++) 

{ 

fgets(buffer,200,NEU_INP); 

) 

fscanf(NEU_INP,"%d,",&CHECKI); 
while(CHECKl !=-l) 

( 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_lNP); 

for(i=0;i<9;i++) 

( 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d",&CHECKI ); 

1 

) 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_fNP,”%d,",&CHECKl); 
whilefCHECKl !=-l) 

( 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d, , ',&CHECKl ); 

) 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d,",&CHECKl); 
while(CHECK 1 !=- 1 ) 

( 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_fNP,”%d,",&CHECK 1 ); 

} 

fgets(buffer,200,NEU_INP); 
goto label407; 

} 

//Switch block with revised Oct block below 
*1 

//revised in Oct., 1997(changed above block) 

LOAD_NUM = 0; 

Iabel407 : 

fscanf(NEU_INP,"%d",&CHECK); // check for end of block 

fgets(buffer,200,NEU_INP); 

if(CHECK != - I) 

{ 

LOAD_SET[LOAD_NUM].SET_ID = CHECK; 
fgets(LOAD_SET[LOAD_NUM].NAME,25,NEU_INP); 
//puts(LOAD_SET[LOAD_NUM].NAME); 
for(i=0;i<19;i++) 

{ 

fgets(buffer,200,NEU_INP); 


fgetpos(NEU_INP,&(LOAD_SET[U3AD_NUM).load_file)); 
fscanf(NEU_INP,"%d,”,&CHECKl ); 
LOAD_SET[LOAD_NUM].NUM = 0; 

label407 1 : 

if(CHECKl != -1) 

{ 

LOAD_SET[LOAD_NUM].NUM = 

LX)AD_SET[LOAD_NUM].NUM + 1; 

for(Il =0; II < 12; I1++) 

( 

fgets(buffer,200,NEU_lNP); 
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fscanf(NEU_INP,"%d",&CHECKl); 

goto !abe!407 1 ; 

> 

fgets(buffer,200,NEU_INP); 

LOAD_SET[LOAD_NUM].NT_NUM = 0; 
fgetpos(NEU_INP,&(LOAD_SET[LOAD_NUM].nt_file)); 
fscanf(NEU_INP."%d,",&CHECKl); 
//printf("%]d\n'',LOAD_SET[LOAD_NUM].NUM); 

//getchar(); 

labe!4072: 

if(CHECKl != -1) 

{ 

LOAD_SET[LOAD_NUM].NT_NUM = 

LOAD_SET[LOAD_NUM].NT_NUM + 1 ; 

fgets(buffer, 200, NEU_INP); 
fscanf(NEU_INP, "%d,\ &CHECK1); 
goto labe!4072; 

) 

fgets(buffer,200,NEU_INP); 

LOAD_SET[LOAD_NUM].ET_NUM = 0; 
fgetpos(NEU_INP,&(LOAD_SET[LOAD_NUM].et_file)); 
fscanf(NEU_JNP t "%d,",&CHECKl ); 

//printf( M %ld\n",LOAD_SET[LOAD_NUM].NT_NUM); 

//getchar(); 

label4073: 

if(CHECKl!=-l) 

{ 

LOAD_SET[LOAD_NUM3.ET_NUM=LOAD_SET[LOAD_NUM].ET_NUM+l; 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP, M %d t ",&CHECK 1 ); 
goto label4073; 

} 

fgets(buffer,200,NEU_INP); 

// printf("%ld\n M ,LOAD_SET[LOAD_NUM].ET_NUM); 

//getchar(); 

LOAD_NUM=LOAD_NUM+ 1 ; 

goto label407 ; 

} 

//revised in Oct. ,1997 (changed block from above) 

FLAG=1; 

break; 

case 408: 

//printf(" Process the group information.. An"); 
label408: 

fscanf(NEU_fNP,"%d’\&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_INP); 
fscanfCNEU.INP/^d/'^CHECKl ); 
while(CHECKl!=-l) 

{ 

fgets(buffer,200,NEU_INP) ; 
fscanf(NEU_INP,"%d,",&CHECK 1 ); 

} 

fgets(buffer,200,NEU_lNP); 

fscanf(NEU_INP,"%d,",&CHECKl); 

while(CHECKl!=-l) 

{ 

fgets(buffer,200,NELLINP); 
fscanf(NEU_INP, "%d," ,&CHECK 1 ); 

} 

fgets(buffer,200,NEU_INP); 
fscanfCNEU.INP/’^od/'^CHECKl); 
while(CHECKl !=-l) 

{ 

fgets(buffer,200,NEU_INP); 
fscanf( NEU_1NP, " %d," ,&CHECK 1 ); 
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} 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP/’%d, M ,&CHECKl); 

while(CHECKl!=-l) 

I 

fgets(buffer,200,NEU_INP) ; 
fscanf(NEU_INP/'%d,'\&CHECKl ); 

} 

fgets(buffer,200,NEU_INP); 
goto label408; 

} 

FLAG=1 ; 
break; 

case 409: 

//printf(" Process the view information. .An"); 
labeI409: 

fscanf(NEU_INP/ l %d l \&CHECK); 
fgets(buffer,200,NEU_INP) ; 
if(CHECK!=-l) 

{ 

fgets(buffer > 200,NEU_INP); 

for(i=0;i<9;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP,"%d",&II); 

fgets(buffer,200,NEU_INP); 

for(i=0;i<II;i++) 

{ 

fgets(buffer,200,NEU_INP) ; 

} 

for(i=0;i<8;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP, ,, %d ,, ,&II); 

fgets(buffer,200,NEU_INP); 

for(i=0;i<II;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

for(i=0;i<4;i++) 

{ 

fgets(buffer,200 T NEU_INP); 

) 

fscanf(NEU_INP; , %d , \&II); 

fgets(buffer,200,NEU_INP); 

for(i=0;i<II;i++) 

{ 

fgets(buffer,200,NEU_INP); 

) 

fscanf(NEU_INP,"%d ,, ,&II); 

fgets(buffer,200,NEU_INP); 

for(i=0;i<II;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

for(i=0;i<3;i++) 

( 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP, M %d , \&II); 

fgets(buffer,200,NEU_INP); 

for(i=0;i<II-l;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP/’%d'\&CHECKl); 
fgets(buffer,200,NEU_INP); 
while(CHECKl !=-l) 
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{ 

fscanf(NEU_INP/W\&CHECKl); 

fgets(buffer,200,NEU_lNP); 


goto label409; 

} 

FLAG^l; 

break; 

case 411: 

//printf(" Process the Report Format information...\n"); 
label41 1: 

fscanf(NEU_INP,"%d , \&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_rNP/'%d\&II); 
fgets(buffer,200,NEU_lNP); 
for(i=0;i<II-l ;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP,"%d",&II); 
fgets(buffer,200,NEU_INP) ; 
for(i=0;i<IM ;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto labeI41 1; 

} 

FLAG=1; 

break; 

case 420: 

//printf(" Process the function information...\n''); 
label420; 

fscanf(NEU_INP/’%d M ,&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-t) 

{ 

fgets(buffer,200 > NEU_INP); 
fscanf(NEU_INP > l, %d",&CHECK 1 ); 
if(CHECKl!=-l) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto labe!420; 


FLAG=1; 

break; 

case 412: 

//printfC Process the active data information... \n M ); 
fgets(buffei\200,NEU_INP) ; 
fscanf(NEU_INP; , %d” > &CHECK); 
fgets(buffer,200,NEU_INP); 

FLAG=1; 

break; 

case 450: 

case_i=0; 

label450: 

fscanf(NEU_INP,’ , %d",&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

( 

case_i=case_i+l ; 

fgets(set_name[CHECK- 1 ] ,30,NEU_1NP) ; 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP > ’ , %lg",TlME+CHECK-l); 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP, M %d”,&n ); 

fgets(buffer,200,NEU_INP); 
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for(i=0;icll ;i++) 

{ 

fgets(bu ffer,200,NEU_INP) ; 

} 

goto labe!450; 


FLAG= 1 ; 

break; 

case 45 1 : 

ou tpu t_set_n u m=0 ; 


label45 1 : 

fscanf(NEU_INP,"%d",&CHECK); 

fgets(buffer,200,NEU_ENP); 

if(CHECK!=-l) 

{ 

case_num[output_set_num]=CHECK; 
fgets(out_set_name[output_set_num],30,NEU_INP); 
////////////////////printf( " % d %s\n", output_set_num, 

out_set_name [output_set_num] ) ; 

fscanf(NEU_INP,"%lg,%lg,%lg ,, ,MIN_VALUE-K)utput_set_num, 

MAX_VALUE+output_set_num,AMAX_VALUE+output_set_num); 

fgets(buffer,200,NEU_INP); 
fgets(buffer,200,NEU_INP); 
fgets (buffer, 200, NEU_INP); 

fscanf(NEU_INP,"%ld,%]d,%d,%d ,, ,&CHECKD,&NODE_i,&Il,TYPE+output_set_num); 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_INP); 

fgetpos(NEU_INP,file_output+output_set_num); 
output_set_num=output_set_num+ 1 ; 

ELEMENT_i=0; 
label45 1 1 : 

fscanf(NEU_ENP,"%ld,",&CHECKD); 

if(CHECKD!=-l) 

{ 

fgets(buffer,200,NEU_INP); 

ELEMENT_i=ELEMENT_i+ 1 ; 

goto label45 1 1 ; 

} 

fgets(buffer,200,NEU_INP); 

Total_num[output_set_num- 1 ]=ELEMENT_i ; 
goto label45 1 ; 

} 

FLAG=- 1 ; 

break; 

} 


} 

} 

//allocation dynamic memory for node data 

NODE_P =(struct NODE_DATA *) malloc(NODE_NUM*(sizeof(NODE_DATA)+l)); 
if( NODE_P == NULL ) 

{ 

printfC Insufficient memory available for node data\n ); 
getcharO; 

} 

else{ 

//printf( "Memory allocation success\n"); 
printf("\n"); 

} 

//allocation dynamic memory for element data 

// 

ELEMENTJTMP =(struct ELEMENT_REL *) cal!oc(sizeof(ELEMENT_REL),ELEMENT_NUM 1 ); 
if( ELEM ENT_TM P == NULL ) 

printf(" Insufficient memory available for element relation data\n" ); 
getchar(); 
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else{ 

//printf(" Memory allocation success\n”); 
printf("\n"); 

) 

ELEMENT_P =(struct ELEMENT_DAT A *) calloc(sizeof(ELEMENT_DATA),ELEMENT_NUM); 
if( ELEMENT_P = NULL ) 

( 

printfC’Insufficient memory available for element data\n" ); 
getchar(); 

} 

else{ 

//printf(" Memory allocation success\n"); 
printf(’’\n"); 

} 


//revised in Oct., 1997 

COORDINATE_P=(struct COORDINATE *)calloc(sizeof(COORDINATE),COORDINATE_NUM); 
if(COORDINATE_P==NULL) 

{ 

printf(" Insufficient memory for coordinate system data\n"); 
getchar(); 

} 

fsetpos(NEU_INP,&ftle_coordinate); 
for( 12=0; I2<COORDIN ATE_NUM ; 12++) 

{ 

fscanf(NEU_INP, ,, %d , \&Il); 

(COORDINATE_P+I2)->A=Il ; 

fscanf(NEU_INP; , ,%d,%d ,, ,&((COORDINATE_P+I2)->B),&((COORDINATE_P+I2)->C)); 

fgets(buffer,200,NEU_INP); 

fgets((COORDINATE_P+I2)->D,25,NEU_INP); 

// printf("%d\t%s",12,(COORDINATE_P+I2)->D); 

for(I3=0;I3<3;I3++) 

{ 

fscanf{NEU_INP, l ’%lg, , \&((COORDINATE_P+I2)->E[l3])); 

} 

fgets(buffer,200,NEU_INP); 

for(I3=0;I3<3;I3++) 

{ 

fscanf(NEU_INP,"%Ig,",&((COORDINATE_P+I2)->F[I3])); 

} 

1 


if(CONSTRAINT_NUM > 0) 

printf("Would you like to load the constraint information into memory?\n\n"); 

FLAG = 1; 
while(FLAG == 1 ) 

{ 

printfC\n(Y) Yes; (N) No;\n M ); 

//gets(OUTPUT); 

scanf(" %s", OUTPUT); 

//strcpylOUTPUT/’Y"); // BEC+ 

if((!strcmp(OUTPUT, "Y")) II (!strcmp( OUTPUT, "y"») 

{ 

CONSTRAINT_YES = 1; 
for(I2 = 0; 12 < CONSTRAINT_NUM; I2++) 

CON STR AINT_SET[ 12] . ID=(long int *)calloc(sizeof(iong int),CONSTRAINT_SET[I2].NUM) 
CONSTRAINT_SET[I2].INDEX=(int *)calloc(sizeof(int),(CONSTRAINT_SET[I2].NUM)*6); 
if((CONSTRAINT_SET[I2].ID==NULL)ll(CONSTRAINT_SET[I2].INDEX==NULL)) 


printf(" Insufficient memory for data in constraint set #%d\n", 12+1); 



getcharO; 


) 

H+ ********^****^********** ************ ********** ************* ********** ****♦*// 


fsetpos(NEU_INP,&(CONSTRAINT_SET[I2].file_constraint)); 
for(I3 = 0; 13 < CONSTRAINT_SET[I2].NUM; I3++) 

fscanf(NEUJNP, M %ld,%d,%d,%d,%d,%d,%d,%d,%d",(CONSTRAINT_SET[I2].ID)+I3,&I4,&Il, 

CONSTR AINT_SET[ 12] INDEX+I3*6,CONSTR AINT_SET[I2] .INDEX+(I3*6+ 1 ), 

CONSTR AINT_SET[ 12]. INDEX+(I3*6+2),CONSTRAINT_SET[ 12]. INDEX+( 13*6+3), 

CONSTR AINT_SET[ 12] . INDEX+(I3 *6+4),CON STR AINT_SET[ 12] . INDEX+( 13 *6+5)) ; 
fgets(buffer,200,NEU_INP); 

} 

) 

FLAG=0; 

for(i = 0; i < CONSTR A INT_NUM; i++) 

strcpy(constraintset_names[i], CONSTR AINT_SET[i].B); 

//Ola constraintset_name = constraintset_prompt(constraintset_names, CONSTRAINT_NUM); // Function that calls load 
set name prompt 

stmcpy(constraintset_name, "First constraint", 16); 

//printf( M %s why oh why\n", constraintset_name); 

for(i = 0; i < CONSTR AINT_NUM; i++) 11 ioo P t0 find 

CONSTR AINTSET_P1CK 

if(strcmp(constraintset_name, constraintset_jiames[i]) = 0) 

CONSTR AINTSET_PICK = i + 1 ; 

CONSTR AINTSET_NUM = CONSTRAINT_SET[CONSTRAINTSET_PICK].NUM; 

} 

else if((!strcmp(OUTPUT,"N"))ll(!strcmp(OUTPUT, ,, n"))) 

{ 

FLAG = 0; 

} 

) 

) 


^****$ ***********************> i^**** ******************** **********************// 

MATER IAL_P=(struct MATERIAL *)calloc(sizeof(MATERIAL),MATERIAL_NUM); 
if(M ATER IAL_P==NU LL) 

{ 

printf(" Insufficient memory for material data\n"); 
getchar(); 

} 

fsetpos(NEU_INP,&file_mat); 

for (I2=0;I2<MATERIAL_NUM;I2++) 

{ 

fscanf(NEU_INP/'%d\ &I1); 
fgets(buffer,200,NEU_INP); 

{ 

(MATERIAL_P+12)->A=I1 ; 

fgets((M ATER IAL_P+I2)->title,25,NEU_INP) ; 

// puts(( M ATER IAL_P+I2)->title) ; 

for(I3=0;I3<3;I3++) 

fscanf(NEU_INP,"%lg,’\&((MATERIAL_P+I2)->Young_Modulus[I3])); 

} 

for(I3=0;I3<3;I3++) 

fscanf(NEU_INP,’ , %]g,",&((MATERIAL_P+I2)->Shear_Modulus[I3])); 

} 

for(I3=0;13<3;13++) 

fscanf(NEU_INP, , ’%lg,’\&((MATERIAL_P+I2)->Poisson_Ratio[I3])); 

) 

for(13=0;I3<2 1 ;I3++) 
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>temperature)); 


{ 

fscanf(NEU_INP/'%lg/\&((MATERIAL_P+l2)->GMatnx(13])); 

) 

for(I3=0;I3<6;13++) 

{ 

fscanf(NEU_INP,"%lg,’\&((MATERIAL_P+I2)->alpha[l3])); 

} 

for(I3=0;I3<6;I3++) 

{ 

fscanf(NEU_INP, ,, %lg, , ’,&((MATERIAL_P+I2)->k[I3])); 

fscanf(NEU_INP; , %lg,%lg,%lg,%lg/ , ,&((MATERIAL_P+l2)->thermal_cap), 

&((MATERIAL_P+I2)->density),&((MATERIAL_P+I2)->damping) > &((MATERIAL_P+I2)- 

fscanf(NEU_INP,"%lg,%lg,%lg,%lg,%lg , \ &((MATERIAL_P+I2)->tensionJimit[0]), 

&((MATERIAL_P+I2)~>tension_limit[l]),&((MATERIAL_P+I2)->cornpJimit[0]) 1 

&((MATERIAL_P+I2)->compJimit[l]),&((MATERIAL_P+12)->shearJimit)); 

for(I3=0;13<17;I3++) 

{ 

fgets(buffer,200,NEU_INP); 


} 

// 

if(LOAD_NUM > 0) 

printf("Would you like to load the load information into memory?\n\n"); 

FLAG=1; 
while(FLAG== 1 ) 

{ 

printf(”\n(Y) Yes; (N) No;\n”); 

//gets(OUTPUT); 

scanf("%s u , OUTPUT); 

//strcpy(OUTPUT, " Y") ; //BEC+ 

if((!strcmp(OUTPUT > l, Y”»ll(!strcmp(OUTPUT,"y"})) 

{ 

LOAD_YES = 1 ; 

for(Il =0; II < LOAD_NUM; I1++) 

// printf(' , Il=%d\t%ld\t%ld\I%ld\n',II,LOAD_SET[Il].NUM,LOAD_SET[Il].NT_NUM,LOAD_SET[Il].ET_NUM); 

//getchar(); 

if(LOAD_SET[Il].NUM != 0) 

LOAD_SET[Il].ID = (long int *)calloc(sizeof(long int),LOAD_SET(Il].NUM); 
if( LO AD_SET[ I 1 ] . ID == NULL) 

{ 

printf(” Insufficient memory for data in load set #\n' ,11 + 1); 
getchar(); 

LX> AD_SET[1 1 ] ,TYPE=(int *)calloc(sizeof(int),LO AD_SET[I I ] NUM); 
if(LOAD_SET[I l ] TYPE==NULL) 

{ 

printf("lnsufficient memory for data in load set #\n",ll+l); 
getchar(); 

LX) AD_SET[ 1 1 ] .FACE=(int *)calloc(sizeof(int),(LOAD_SET[Il ] ,NUM)*6); 
if(LO AD_SET[ 1 1 ] .FACE=NULL) 

{ 

printf(" Insufficient memory for data in load set #\n’\ll+l); 
getcharf); 

LOAD_SET[ 1 1 ] . V ALUE=(double *)cailoc(sizeof(double),(LOAD_SET[Il].NUM)*8); 
if(LOAD_SET[Il].VALUE==NULL) 

{ 

printf("Insufficient memory for data in load set #\n\Il + l); 
getchar(); 

} 
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II * ************************************************************************** *// 

^A*********#*****************************************************************// 


fsetpos(NEU_INP,&(LX)AD_SET[Il].load_rile)); 

MCHECKD = 0; CHECKD < LOAD_SET[Il J.NUM; CHECKD++) 

' fscanf(NEU_INP, , '%ld,%d",LOAD_SET( II]. ID + CHECKD, LOAD_SET[ 1 1 J. TYPE + CHECKD); 

//printf("%ld,%d\n'',LOAD_SET[Il].ID[CHECKD],LOAD_SET[Il].TYPE[CHECKD]); 

//getchar(); 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP "%lg,%lg",LOAD_SET[Il].VALUE+(CHECKD*8),LOAD_SET[ll].VALUE+(CHECKD*8+l)); 

//printf("%lg,%lg\n",LOAD_SET[ 1 1 ] V ALUE[CHECKD*8],LOAD_SET[I I ],VALUE[CHECKD*8+ 1 )); 
//getchar(); 

//printf( M %ld\n" .CHECKD); 

//getchar(); 

fgets(buffer,200,NEU_INP); 

//puts(buffer); 

for (CHECK1 = 0;CHECK1 <6; CHECK 1++) 

{ 

// printfO'&ldXn^CHECKl); 

fscanf(NEU_INP, M %d,%lg M ,LX)AD_SET[Il].FACE+{CHECKD*6+CHECKl),LOAD_SET[Il].VALUE+(CHECKD*8+2 

+CHECK1)); 

printf( ,, %d,%lg\n , \LOAD_SET[Il].FACE[CHECKD*6+CHECKl],LOAD_SET[Il].VALUE[CHECKD*8+2+CHECKl]) 

// getchar(); 

fgets(buffer,20aNElLINP); 

} 

for(I4 = 0;I4 < 4; I4++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

// getchar(); 

} 

//LOADSET_PICK=0; 

//LOADSET_NUM=LOAD_SET[LOADSET_PICK].NUM; 

} 

if(LO AD_SET[1 1 ] ,NT_NUM != 0) 

LOAD_SET[Il].NT_ID=(long int *)calloc(sizeof(long int),LOAD_SET[Il].NT_NUM); 
if(LOAD_SET[ 1 1 ] .NT_ID==NULL) 

printf(" Insufficient memory for data in load set #\n",Il + l); 
getchar(); 

LOAD_SET[Il].NT_VALUE=(double *)calloc(sizeof(double),LOAD_SET[U3.NT_NUM); 
if(LOAD_SET[Il].NT_VALUE==NULL) 

printfC Insufficient memory for data in load set #\n'\Il + l); 
getcharO; 

} 


^***************** **************************************************** ****♦**// 
fsetpos(NEU_INP,&(LOAD_SET[Il].nt_file)); 

for(CHECKD = 0; CHECKD < LX>AD_SET[I1].NT_NUM; CHECKD++) 

fscanf(NEU_INP, t '%ld,%d,%d,%lg",LOAD_SET[Il].NT_ID-fCHECKD > &I3,&I4,LOAD_SET[Il].NT_VALUE+CHECK 
U ’ //printf("NT=%ld\t%lg",LOAD_SET[ll].NT_ID[CHECKD],LOAD_SET[ll].NT_VALUE[CHECKD]); 

//getchar(); 

fgets(buffer,200,NEU_INP); 

} 

} 

// printf("&&&&An"); 
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if(LOAD_SET[II].ET_NUM != 0) 

LOAD_SET[ll].ET_ID=(long ini *)calloc(sizeof(long int),LOAD_SET[ll].ET_NUM); 
if(LOAD_SET[Il].ET_ID==NULL) 

{ 

printff" Insufficient memory for data in load set #\n",Il + l); 
getchar(); 

LOAD_SET[Il].ET_VALUE=(double *)calloc(sizeor(double),LXDAD_SET[Il].ET_NUM); 
if(LO AD_SET[ 1 1 ] .ET_ V ALUE==NULL) 

{ 

printf(" Insufficient memory for data in load set #\n",Il + l); 
getchar(); 

} 

yy********** ************************************************ ******************// 


fsetpos(NEU_INP,&(LOAD_SET[Il].et_file)); 

for(CHECKD = O.CHECKD < LOAD_SET[Il].ET_NUM; CHECKD++) 

fscanf(NEU_rNP,"%ld,%d,%d,%lg",LOAD_SET[n ] ET_ID+CHECKD,&I3,&I4,LOAD_SET[n ] .ET_VALUE+CHECK 

D); 

//printf("ET=%ld\t%lg",LOAD_SET[Il].ET_ID[CHECKD3,LOAD_SET[Jl].ET_VALUE[CHECKD]); 

//getcharO; 

fgets (buffer, 200, NEU_INP); 

} 

) 

} 

FLAG=0; 

for(i = 0; i < LOAD_NUM; i++) 

strcpy(loadset_names[i], LOAD_SET[i].NAME); 

//ola loadset_name = loadset_prompt(loadset__names, LOAD_NUM); // Function that calls load set name prompt 
strcpy(loadset_name, "First Load"); 

for(i = 0; i < LOADJMUM; i ++) H loop to find LOADSET_PICK 

if(strcmp(loadset_name, loadset_names[ij) == 0) 

LOADSET_PICK = i + 1; 

LOADSET.NUM = LOAD_SET[LOADSET_PICK].NUM; 

} 

else if(stmcmp(bool, "NO", 2) = 0) 

{ 

FLAG=0; 

} 

} 

} 


yy********* ******* ************************************************** ***♦♦*****// 
yy* ********* ****** ************************ ** ********* ************* *********** *yy 

//revised in Oct., 1997 

ELEMENT_PROPERTY_P=( struct ELEMENT_PROPERTY *) calloc (sizeof(ELEMENT_PROPERTY),ELEMENT_PRO_NUM); 
if(ELEMENT_PROPERTY_P==NULL) 

{ 

printff Insufficient memory for element property data\n"); 
getchar(); 

} 

else{ 

printf("\n"); 

} 

fsetpos(NEU_INP,&file_pro) ; 

for (i=0;i<ELEMENT_PRO_NUM;i++) 

{ 

fscanf(NEU_INP,"%d,%d,%d,%d",&CHECKD,&Il,&I2,&I3); 

(ELEMENT_PROPERTY_P+i)->A=I3 ; 
fgets(buffer,200,NEU_INP); 
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fgets{buffer,200,NEU_INP); 
fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d’\&II); 
fgets(buffer,200,NEU„INP); 
for( 1 1 =0; 11 <(float)(II/8)+ 1 .0;I1 ++) 

{ fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP, , '%d , \&II); 
fgets(buffer,200,NEU_INP); 
for (I3=0;I3<II;I3++) 

fscanf(NEU_INP, M %lg, ,, ,&((ELEMENT_PROPERTY_P+i)->B [ 13 ] )); 

} 

fgets(buffer,200,NEU_INP); 

} 

//revised on Sept 30, 1 997 
fsetpos(NEU_INP,&file_node); 

names =(struct NAMES *) malloc(sizeof(NAMES));//Dryer added 9/20/97 


for (NODE_i=0;NODE_i<NODE_NUM;NODE_i++) 

{ 

fscanf(NEU_INP,"%ld,",&CHECKD); 

(NODE_P+NODEJ)->A=CHECKD; 

for(i=0;i<10;i++) 

{ 

fscanf(NEU_INP,"%d, M ,&Il); 

) 

fscanf(NEU_INP,"%lg,%lg,%lg",&X,&Y,&Z); 

(NODE_P+NODE_i)->x=X; 

(NODE_P+NODE_i)->y=Y ; 

(NODE_P+NODE_i)->z=Z; 

{NODE_P+NODEJ)->dx=0.0; 

(NODE_P+NODE_i)->dy=0.0; 

(NODE_P+NODE_i)->dz=0.0; 

fgets(buffer,200,NEU_rNP); 

for(i=0;i<5;i++) 

{ 

(NODE_P+NODE_i)->output_data[i]=0.0; 


//processing the output data 
fsetpos(NEU_INP,&file_element); 

// 

for(ELEMENT_i=0;ELEMENT_i<ELEMENT_NUM 1 ;ELEMENT_i++) 

{ 

fscanf(NEU_INP/ , %ld”,&CHECKD); 

(ELEMENT_TMP+ELEMENTJ)->A=CHECKD; 

for(i=0;i<7;i-H-) 

{ 

fgets(buffer,200,NEU_INP); 


) 

^********************************* c le^ screen** ****** ****************** ****♦// 


for (i=0;i<23;i++) 

< 

printf("\n"); 

} 

//revised on Sept. 30, 1997 

//**♦***♦* ******************************** ***************************** ***♦***// 
if(case_i!=0) 
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( 

//revised on Setp. 30, 1997 
FLAG=0; 
while(FLAG==0) 

{ 

i=0; 

11 = 0 ; 

while(i<case_i) 

{ 

if(ll==0) 

{ 

printfC Please enter a case number:\n\n"); 

} 

printf("(%d) %s’\i+l ,set_name[i]); 

while((Il== 1 9)ll(i==case_i- 1 )) 

{ 

11 = 0 ; 

printfC Please select: (N) next; (P) previous; (S) selection\n\n"); 

scanf("%s",OUTPUT); 

//strcpy(OUTPUTCS"); // BEC+ 

if(( !stmcmp(OUTPUT,"S M , 1 ))ll( !stmcmp(OUTPUTCsM ))) 

{ 

printf{”Please enter the number of case\n"); 
scanf("%d’’,&12); 

//I2 = 1 ; //BEC+ 


getchar(); 

case_n=I2; 

stmcpy(names->actual_case_name,set_name[case_n- l],strlen(set_name[case_n- 1 ])), 
goto labelnnn; 

) 

else if((!stmcmp(OUTPUT,"NM))IK!stmcmp(OUTPUT; , nM))) 

{ 

FLAG=0; 

break; 

} 

else if(( !strncmp(OUTPUT,"P'\ 1 ))il( IstrncmptOUTPUT/'p", 1 ))) 

{ 

i=i-38; 

if(i<0) 

{ 

i=-l; 

} 

break; 

) 

} 

i=i+l; 

11 = 11 + 1 ; 

} 

} 

labelnnn: 

casein n = 0; 

for(i = 0; i < output_set_num; i++) 

{ 

if(case_num[i] = casein) 

{ 

strcpy(temp_set_name[case_nn], out__set_name[i]); 
case_set_num[case_nn] = i; 
case_nn = case_nn + 1 ; 


} 


yy* ****** *************** ********* **dear screen** 


*****************************// 


for (i=0;i<23;i++) 

{ 
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printf("\n"); 

} 

//revised on Sept. 30, 1997 


yy* ************************************************** *************************// 

for< i=0 ;i<case_nn ; i++) 

if((!stmcmp(temp_set_name[i],”Tl TransIation”,14))tl(!stmcmp(temp_set_name[i],"X Translation ,13))) 

{ 

fsetpos(NEU_INP,file_output+case„set_num[i]); 

for (NODE_i=0;NODE_i<Total_num[case_set_num[i]];NODE_i-H-) 

{ 

fscanf(NEU_INP,"%ld,%lg , \&CHECKD,&X); 

ELEMENT_i=FindNid(CHECKD); 

// ELEMENT J=FindNid(CHECKD,NODE_P,NODE_NUM); 

fgets(buffer,200,NEU_INP); 

(NODE_P+ELEMENT_i)->dx=X; 

} 

if((!stmcmp(temp_set_name[i],"T2 Translation", 14))ll(!strncmp(temp_set_name[i],"Y Translation”,! 3))) 

{ 

fsetpos(NEU_INP,file_output-K:ase_set_num[i]); 

for (NODE_i=0;NODEJ<Total_num[case_set_num[i]];NODEJ++) 

{ 

fscanf(NEU_lNP,"%ld,%lg",&CHECKD,&X); 

fgets(buffer,200,NEU_INP); 

ELEMENTJ=FindNid(CHECKD); 

// ELEMENT_i=FindNid(CHECKD,NODE_P,NODE_NUM); 

(NODE_P+ELEMENT_i)->dy=X; 


if((!strncmp(temp_set_name[i],"T3 Translation", 14))ll(!stmcmp(temp_set_name[i],"Z Translation", 13))) 

{ 

fsetpos(NEU_lNP,file_output+case_set_num[i]); 

for (NODEJ=0;NODEJ<TotaLnum[case_set_num[i]];NODE_i++) 

{ 

fscanf(NEU_ENP,"%ld,%lg ,, ,&CHECKD,&X); 

fgets(buffer,200,NEU_INP); 

ELEMENT J=FindNid(CHECKD); 

// ELEMENT_i=FindNid(CHECKD,NODE_P,NODE_NUM); 

(NODE_P+ELEMENT_i)->dz=X; 


} 

yy*** ********************** ****************** *********************************// 

/* 

for(i = 0; i < case_nn; i++){ ^ include whether output is nodal or 

elemental 

if(TYPE[case_set_num[i]] ==7) 

sprintf(temp_name[i], "(Nodal) %s", temp_set_name[i]); 
if(TYPE[case_set_num[i]] == 8) 

sprintf(temp_name[i], "(Elemental) %s”, temp_set__name[i]); 

} 

//output_data = output_data_prompt(temp_name, case_nn); // Function that calls output set name prompt 

strcpy(output_data, " 

j=0; 

while(output_data[j + 1] != NULL && j < 1 0) { 

for(i = 0; i < case_nn; i++) // loop to find case_ 

if(stmcmp(strchr(output_data[j], ”) + 1 , temp_set_name[i], strlen(strchr(output_dataQ], ’ *) + 1 )) 

0) 

if(stmcmp(output_data[j], "(Elemental)", 1 1 ) == 0 && k < 5){ 

V[k++] = i; 

V_NUM = V_NUM - 1; 

} 

else if(stmcmp(output_data[j], "(Nodal)", 7) == 0 && m < 5){ 
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) 


U[m++] = i; 

U„NUM = U_NUM - 1; 


} 

} 

j=j + >: 

) 

goto labelxxx; 

*/ 

V_NUM=5; 

U_NUM=5; 

11 = 0 ; 

labelyyy: 

i=0; 

while(i<case_nn) 

{ 

if(ll==0) 

{ 

printf(”\n Please select %d sets of elemental output data\n",U_NUM); 
printffand %d sets of nodal output data for visualization\n\n’\V_NUM); 
} 

if(TYPE[case_set_num[i]]=7) 

{ 

printfC(Nodal) #(%d): %s'\i+l,temp_set_name[i]); 

} 

if(TYPE[case_set_num[i]]=8) 

{ 

printf("(Elemental) #(%d): %s\i+l,temp_set_name[i]); 

) 


if(( 1 1 == 1 8)ll(i=case_nn- 1 )) 

{ 

11 = 0 ; 

FLAG= 1 ; 
while(FLAG==l) 

{ 

if((U_NUM=0)&&(V_NUM==0)) 

{ 

goto labelxxx; 

) 

printf("\n(N) next; (P) previous; (S) select; (D) done;\n"); 
gets(OUTPUT); 

//strcpy(OUTPUT, " S" ); //BEC+ 

if((!strcmp(OUTPUT; , N ,, ))tl(!strcmp{OUTPUT; , n ,, ))) 

{ 

if(i=case_nn-l) 

{ i=i-l 8; } 
if(i<0) 

{ 

i=0; 

} 

11=0; 

FLAG=0; 

break; 

} 

else if(( !strcmp{OUTPUT,"P”))li( !strcmp(OUTPUT, M p”))) 

{ 

i=i-36; 

if(i<0) 

{ 

i=0; 

} 

FLAG=0; 

break; 

} 

else if((!strcmp(OUTPUT T ,, S r '))ll(!strcmp(OUTPUT,"s"))) 


E-95 



//II = l ; //BEC+ 


{ 

printf(”Please enter the set #?\n"); 
scanf("%d",&II); 


getchar(); 

//revised in Oct., 1997 
if(TYPE[case_set_num[H- 1 ]]==7) 

{ 

if(U_NUM-l<0){goto labelxxx;} 
U[5-U_NUM]=II-1 ; 
U_NUM=U_NUM-1; 

} 

if(TYPE[case_set_num[II-l]]==8) 

{ 

if( V_NUM< 1 ) { goto labelxxx;} 
V[5-V_NUM]=II-1; 
V_NUM=V_NUM-1 ; 

} 

//revised in Oct., 1997 


} 

else if((!strcmp(OUTPUT 1 ”D"))i!(!strcmp(OUTPUT,"d"))) 

{ 

goto labelxxx; 

} 

else 

{ 

i=i-l8; 

if(i<0) 

{ 

i=0; 

11 = 0 ; 

} 

FLAG=0; 

break; 

} 

} 

continue; 

} 

11 = 11 + 1 ; 

i=i+l; 

if(i==case_nn) 

{ 

11 = 0 ; 

i=0; 

goto labelyyy; 

} 

jj**+*+***\ **************************************** ***************************// 


labelxxx: 

//printf("****\n"); 
if(V_NUM != 5) 

{ 

//printf(” Processing the elemental output data\n"); 
for(i = 0; i < 5 - V_NUM; i++) 

{//revised in Oct., 1997 

// printf("i=%d\n",i); 

//printf("set_num=%d\n",Total_num[case_set_num[V[i]]]); 

fsetpos(NEU_INP,file_output+case_set_num[V[i]]); 

for(ELEMENTJ=0;ELEMENTJ<Total_num[case_set_num[V[i]]];ELEMENT_i++) 

{ 

fscanf(NEU_INP,”%ld,%lg M ,&CHECKD,&X); 

// printf( ,, CKD=%ld\n",CHECKD); 

(ELEMENT_TMP+FindEid(CHECKD))->data[i]=X; 

fgets(buffer,200,NEU_INP); 

) 
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//revised in Oct., 1997 

} 

} 

else 

{ 

for(ELEMENTJ=0;ELEMENT_i<ELEMENT_NUM 1 ;ELEMENT_i++) 

{ 

for(Il=0;Il<5;Il++) 

{ 

(ELEMENT_TMP+ELEMENT_i)->data[Il]=0.0; 

} 

} 

} 

if(U_NUM != 5) 

{if(U_NUM < 0){U_NUM = 0;} 

// printf("Processing the nodal output data\n”); 

for(i = 0; i < 5 - U_NUM; i++) 

{ 

//revised in Oct., 1997 

fsetpos(NEU_INP,ftle_output-K:ase_set_num[U[i]]); 

for(NODEJi=0;NODEJ<Total_num[case_set_num[U[i]]];NODE_i++) 

{ 

fscanf(NEU_INP,"%ld,%lg’',&CHECKD,&X); 

(NODE_P+FindNid(CHECKD))->output_data[i]=X; 

fgets(buffer,200,NEU_INP); 

//revised in Oct., 1997 


//revised on Sept. 30 1997 

} 

//revised on Sept. 30, 1997 
fsetpos(NEU_INP, &file_element); 

NODE_i=0; 

for (ELEMENT_i=0;ELEMENT_i<ELEMENT_NUM 1 ;ELEMENT_i++) 

ftcanf(NEUJNP, , Told,%d,%d,%d,%d: , ,&CHECKDD,&n,&I2,&I3,&I4); 

fgets(buffer,200,NEU_INP); 

switch(I4) 


case 0: 

//ELEMENT_NUM=ELEMENT_NUM+ 1 ; 
for(i=0;i<20;i++) 

{ 

fscanf(NEU„INP,"%ld,",&CHECKD); 

!D[i]=FindNid(CHECKD); 

ID[i]=FindNid(CHECKD,NODE_P,NODE_NUM); 

} 

(ELEMENT_P+NODE_i)->A=2; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

//for(Il =0;1 1 <4;1 1 ++) 

// { 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 
(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 
(ELEMENT_P+NODE_i)->B[2]=- 1 ; 
(ELEMENT_P+NODE_i)->B[3]=-l ; 

//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

// } 

for(i=0;i<5;i++) 


(ELEMENT_P+NODE_i)- 


>C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i); 


} 


NODE„i=NODE_i+ 1 ; 
fgets(buffer,200,NEU_INP); 
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break; 

case 2: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP, ,, %Id,",&CHECKD); 

ID[i]=FindNid(CHECKD); 

// ID[i]=FindNid(CHECKD,NODE_P,NODE_NUM); 

} 

(ELEMENT_P+N0DE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

for(Il=0;Il<4;I]++) 

{ 

(ELEMENT_P+NODE_i)->B[1 1 ]=ID[1 1 ] ; 

} 

//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)- 

>C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

/*(ELEMENT_P+NODE_i)->A=3; 

for(Il=0;Il<4;Il++) 

I 

(ELEMENT_P+NODE_i)->B[Il]=ID[3-Il]; 

} 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ;*/ 

fgets(buffer,200,NEU_INP); 

break; 

case 3: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP, " %ld," .&CHECKD) ; 

ID[i]=FindNid(CHECKD); 

// ID[i]=HndNid(CHECKD,NODE_P,NODE_NUM); 

) 

(ELEMENT„P+NODE_i)->A=3 ; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 


for(Il=0;Il<4;Il++) 

{ 

(ELEMENT_P+NODE_i)->B[Il]=ID[ II]; 

} 

//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=B; 

//revised Sept. 30, 1997 

for(i=0;i<5;i-H-) 

{ 

(ELEMENT_P+NODE_i)- 

>C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 

} 

NODE_i=NODE_i+l ; 

/*(ELEMENT_P+NODE_i)->A=3; 

for(Il=0;Il<4;Il++) 

{ 

(ELEMENT_P+NODE _i)->B[Il ]=ID[3-1 1 ] ; 

} 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[ij; 

} 

NODE_i=NODE_i+l ;*/ 
fgets(buffer,200,NEU_INP); 
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case 4: 


break; 


for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP,”%ld,’\&CHECKD); 

ID[ij=FindNid(CHECKD); 

ID[i]=FindNid(CHECKD,NODE_P,NODE_NUM); 

) 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

for(Il=0;Il<4;Il++) 

{ 

(ELEMENT_P+NODE_i)->B[Il]=lD[Il]; 

) 

//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

/*(ELEMENT_P+NODE_i)->A=4; 
for(1 1 =0;1 1 <4;I1 ++) 

{ 

(ELEMENT_P+NODE_i)->B [1 1 ]=ID[3-1 1 ] ; 

} 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[ij; 

} 

NODE _i=NODE _i+ 1 ;*/ 
fgets(buffer,200,NEU_INP); 
break ; 

case 5: 

for(i=0;i<20;i-H-) 

{ 

fscanfCNEUJNP/^ld^&CHECKD); 

ID[i]=FindNid(CHECKD); 

ID[i]=FindNid(CHECKD,NODE_P,NODE_NUM); 

} 

(ELEMENT_P+N0DE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

for(Il=0;Il<4;Il++) 

{ 

(ELEMENT_P+NODE _i)->B[I 1 ] =ID [ 1 1 ] ; 

} 

//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

( E LEMENT_P+ N ODE_i )->C[i] =(ELEMENT_TM P+ELEM ENT_i )- >data[ i ] ; 

} 

NODE_i=NODEJ+l; 

/*(ELEMENT_P+NODE_i)->A=4; 
for(1 1 =0; 1 1 <4;1 1 ++) 

{ 

(ELEMENT_P+NODE_i)->B[l 1 ]=ID[3-1 1 ] ; 

} 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

I 

NODE_i=NODE_i+l ;*/ 
fgets(buffer,200,NEU_INP); 
break ; 

case 6: 
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for(i=0;i<20;i++) 


{ 

fscanf(NEU_INP,"%ld.",&CHECKD); 

ID[i]=FindNid(CHECKD); 

// ID[i]=FindNid(CHECKD,NODE_P,NODE_NUM); 

} 

fgets(buffer,200,NEU_INP); 

(ELEMENT_P+NODE_i)-> A=3 ; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0]; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B [2]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3] ; 

//revised on Oct. 22,1997 

(ELEMENT_P+NODEJ)->E=1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for0=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B [0]=ID[0] ; 

(ELEMENT_P+NODE J)->B [ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

//revised on Oct. 22,1997 

(ELEMENT_P+NODE_i)->E=1000; 

//revised Oct. 22, 1997 

//revised Sept. 30, 1997 

(EUEMENTJ>+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[4] ; 

(ELEMENT_P+NODEJ)->B[3]=ID[3]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E=1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->Cti]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B [0]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[4]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E=1000; 
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//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT, P+ NODE __i )->F=I3 ; 

//revised Sept. 30, 1 997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODEJ=NODE_i+l; 

/*(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODE_i)->B [0]=ID[2] ; 

(ELEMENT_P+NODE ,i)->B [ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE „i)->B[2]=ID[0] ; 

(ELEMENT_P+NODEJ)->B[3]=ID[3); 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 

} 

NODE_i=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODE_i)->B[0]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE,i)->B[2]=ID[0]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3] ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODE_i)->B[0]=ID[4] ; 

(ELEMENT_P+NODE _i)->B[ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[0]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i3; 

} 

NODE_i=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->B[0]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ;*/ 
break; 

case 7: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP,"%ld,’\&CHECKD); 

ID[i]=FindNid(CHECKD); 

ID[i]=FindNid(CHECKD,NODE_P,NODE_NUM); 

} 

fgets(buffer,200,NEU_INP); 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODE _i)->B[0]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[ l ]=ID[ 1 ] ; 

(ELEMENT_P-f NODE_i)->B[2]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 
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//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODEJ)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT J>+NODEJ)->B[0]=ID[4]; 

(ELEMENT_P+NODE _i)->B[ 1 ]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[6]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE _i)->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODEJ=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 

(ELEMENT_P+NODE_i)->B( 1 ]=ID[ 1 ]; 

(ELEMENT_P+NODE_i)->B [2]=ID[5 ] ; 

(ELEMENT_P+NODEJ)->B[3]=ID[4]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i )->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_t)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[il; 

} 

NODEJ=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=lD[ 1 ] ; 

<ELEMENT_P+NODE_i)->B [ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[4]; 

//revised on Oct. 22, 1 997 
(ELEMENT_P+NODE_i)->E= 1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[2]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[0] ; 

(ELEMENT_P-t-NODE_i)->B[2]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[6]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE J)->E= 1000; 

//revised Oct. 22, 1997 
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//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

) 

NODE_i=NODE_i+ 1 ; 

/*(ELEMENT_P+NODE_i)-> A=3 ; 

(ELEMENT_P+NODEJ)->B[0]=ID[2]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE _i)->B[2]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[3]=DD[3] ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

I 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->B[0]=ID[63; 

(ELEMENT_P+NODE_i)->B[l]=ID[5]; 

(ELEMENT_P+NODE _i)->B[2]=ID[4] ; 

(ELEMENT_P+NODE_t)->B[3]=ID[33; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->B[0]=ID[43; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[0]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODEJ)->B[0]=ID[4]; 

(ELEMENT_P+NODE _i)->B[ 1 ]=l D[5] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[2]; 

(ELEMENT_P+NODEJ)->B[3]=ID[l]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODEJ+l; 

(ELEMENT_P+NODE_i)->A=4 ; 

(ELEMENT_P+NODE_i)->B[0]=ID[6]; 

(ELEMENT_P+NODE J)->B[ 1 ]=ID[4] ; 

(ELEMENT_P+NODE _i)->B[2]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[2]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+l ;*/ 
break; 

case 8: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP,"%ld, , \&CHECKI)); 

ID[i]=FindNid(CHECKD); 

ID[i]=FindNid(CHECKD,NODE_P,NODE_NUM); 

} 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODEJ)->B[0]=rD[0]; 
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(ELEMENT_P+NODE_i)->B[ 1 }=ID[3]; 

(ELEMENT_P+NODEJ)->B[2]=lD[2], 

(ELEMENT_P+NODEJ)->B[3]=ID[ 1 ] ; 

//revised on Oct. 22*1997 

(E LEM ENT_P+NODEJ )->E= 1 000 ; 

//revised Oct. 22, 1 997 
//revised Sept. 30, 1 997 

(ELEMENT_P+NODE _i )->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5 ;i-»— e) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODEJ+l ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE _i)->B[0]=ID[4] ; 

(ELEMENT_P+NODEJ)->B[l]=ID[5]; 

(ELEMENT_P+NODE_i)->B[2]=ID[6] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[7]; 

//revised on Oct. 22,1997 
(ELEMENT J > +NODE_i)->E=1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i3; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODEJ)->B[0]=ID[0]; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE J)->B [2]=ID[5]; 

(ELEMENT_P+NODE_i)->B[3]=ID[4]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E=1000; 

//revised Oct. 22, 1 997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT„P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B [0]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[2] ; 

(ELEMENT.P+NODE _i)->B [2J=ID[6] ; 

(ELEMENT_P+NODEJ)->B[3]=ID[5]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1 997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 
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(ELEMENT_P+NODE_i)->B[0]=lD[2]; 

(ELEMENT_P+NODE_i)->B[l ]=ID[3]; 

(ELEMENT_P+NODE_i)->B[2]=ID[7]; 

(ELEMENT_P+NODEJ)->B[3]=ID[6]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1 997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1 997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)~>B[0]=ID[3] ; 

(ELEMENT_P+NODEJ)->B [ 1 ]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[4] ; 

(ELEMENT_P+NODE_i)->B [3]=ID[7] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODEJ=NODE_i+l; 

/* (ELEMENT_P+NODE_i)->A=4; 

(ELEMENT„P+NODE_i)->B[0]=ID[3]; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[ 1 ] ; 

(ELEMENT J>+NODEJ)->B[3]=ID[0]; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODEJ+l; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE _i)->B[0]=ID[7] ; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[6] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[43 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+l ; 

(ELEM ENT_P+NODE_i )-> A=4 ; 

(ELEMENT_P+NODE_i)->B[0]=ID[4]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[ 1 ]; 

(ELEMENT_P+NODE_i)->B[3]=ID[0]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODEj)->B[0]=ID[5]: 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[6] 

(ELEMENT_P+NODE_i)->B[2]=ID[2] 

(ELEM ENT_P+NODE_i)->B [3]=ID[ I ] 

for(i=0;i<5;i++) 


E-105 



(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODEJ)->B[0)=ID[6]; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[7] ; 

(ELEMENT_P+NODEJ)->B[2]=ID[3]; 

(ELEMENT_P+NODE_i)->B[3]=ID[2]; 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i}=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE _i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT.P+NODE J )->B[0]=ID[7] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=1D[4] ; 

(ELEMENT_P+NODEJ)->B[2]=ID[0]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE J=NODE_i+ 1 ;*/ 

fgets(buffer,200,NEU_INP); 

break; 

case 9: 

fgets(buffer,200,NEU_INP); 
fgets (bu f fer, 200 , NEU_ IN P) ; 
break; 

case 10: 

for(i=0;i<20;i++) 

I 

fscanf(NEU_INP,"%ld^&CHECKD); 

ID[i]=FindNid(CHECKD); 

ID[i]=FindNid(CHECKD,NODE_P,NODE_NUM); 

} 

fgets(buffer,200,NEU_INP); 

(ELEMENT_P+NODE_i)-> A=3 ; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0]; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[ 1 ] ; 

<ELEMENT_P+NODE_i)->B[2]=ID[2]; 

(ELEMENT_P+NODEJ)->B[3]=ID[3]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E=1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)-xJata[i}; 

} 

NODE_i=NODE_i+l ; 

(ELEMENT„P+NODEJ)->A=3; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODEJ)->B[0]=ID[0]; 

(ELEMENT_P+NODE_i)->B[ i ]=ED[ 1 ] ; 

(ELEMENT_P+NODE J)->B[2]=FD[4] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3] ; 

//revised on Oct. 22,1997 
( ELEMENT_P+NODE_i )->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 
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(ELEMENT_P+NODE_i)->C|i]=(ELEMENT_TMP+ELEMENT_i)->dala[i]; 

) 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0); 

(ELEMENT_P+NODE_i)->B[l]=ID[2]: 

(ELEMENT_P+NODE_i)->B[2]=ID[4]; 

(ELEMENT_P+NODEJ)->B[3]=ID[3]; 

//revised on Oct. 22,1997 
(ELEMENT J>+NODE_i)->E=1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(E LEM ENT_P+ N O DE_i )->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B [0]=IDf 1 ] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=E>[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[4]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

/*(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->B [0]=ID[2] ; 

(ELEMENT_P+NODE _i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[0] ; 

(ELEMENT_P+NODEJ)->B[3]=ID[3]; 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODEj=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODE _i)->B[0]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 

(ELEM ENT_P+NODE_i)->B [2]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->B[0]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[l ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3] ; 
for(i=0;i<5 ;i-*-+) 

{ 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

) 

NODE_i=NODE_i+ 1 ; 
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(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->B[0]=lD[4J; 

(ELEMENT_P+N0DE_i)->B[l]=ID[2]; 

(ELEMENT_P+NODE_i)->B[2]=ID[ 1 ]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODEJ=NODE_i+l;*/ 

break; 

case 1 1 ; 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP,"%ld,",&CHECKD); 

ID [i j =FindNid(CHECKD) ; 

ID[i]=FindNid(CHECK.D,NODE_P,NODE_NUM); 

} 

fgets(buffer,200,NEU_INP); 

(ELEMENT_P+N0DE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[3] ; 

(ELEMENT_P+NODE J)->B[ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[ l ] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[0]; 

//revised on Oct. 22,1997 
(ELEMENT J>+NODE_i)->E=1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1 997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(EL£MENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[4]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[5] ; 

(ELEMENT_P+NODE_i )->B [2]=ID[6] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1 997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 

} 

NODE_i=NODE_i+l ; 

(EL£MENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODEJ)->B[0]=ID[0]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[5]; 

(ELEMENT_P+NODE_i)->B[3]=ID[4] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E=1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODEJ)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

{ 
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(ELEM ENT_P+ NODE _i )->C[i]=( ELEM ENT_TM P+ELEM ENT_i )->data[i ] ; 

} 

NODEJ=NODE_i+l; 

(ELEMENT_P+NODE_j)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[ 1 ]; 

(ELEMENT_P+NODE_i)->B[l ]=ID[2]; 

(ELEMENT_P+NODE _i)->B[2]=ID[6] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[5] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i )->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODEJ)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i-H-) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)*>data[i]; 

} 

NODE_i=NODEJ+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[2]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ff)[ 0] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[4]; 

(ELEMENT_P+NODE_i)->B[3]=ID[6] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E=1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i )->C| i ]=(EU-:MENT_TMP+ELEMENT_i)-xlata[i]; 


NODE_i=NODE_i+ 1 ; 

/*(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->B[0]=ID[2]; 

(ELEMENT_P+NODE_i)->B[ I ]=ID[ I ]; 

(ELEMENT_P+NODE_i)->B[2]=ID[0]; 

(ELEMENT_P+NODE_i)->B[3]=ID(3]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODE_i)->B[0]=ID[6]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[5] ; 

(ELEMENT_P+NODEJ)->B[2]=ID[4]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 
for(i=0;i<5 ;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->B[0]=ID[4]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[5]; 

(ELEMENT_P+NODE_i)->B[2]=ID[l ]; 

(ELEMENT_P+NODE_i)->B[3]=ID[0]; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=4; 
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(ELEMENT„P+NODE_i)->B [0]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[5] ; 

(ELEMENT_P+NODEJ)->B[2]=ID[2); 

(ELEMENT_P+NODE_i)->B[3]=ID[ I ] ; 
for(i=0;i<5 ;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->B[0]=ID[6] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[2] ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ;*/ 
break; 

case 12: 

for(i=0;i<20;i++) 

{ 

fscanftNE^INP/^ld^&CHECKD); 

ID[i]=FindNid(CHECKD); 

ID[i]=FindNid(CHECKD,NODE_P,NODE_NUM); 

} 

fgets(buffer,200,NEU_INP); 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B [0]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E=1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[4] ; 

(ELEMENT_P+NODEJ)->B [ 1 ]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[6]; 

(ELEMENT_P+NODE_i)->B[3]=ID[7] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+- 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE J)->B[0]=ID[0] ; 
(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 
(ELEMENT_P+NODE_j)->B[2]=lD[5] ; 
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(ELEMENT „P+NODEJ)->B[31=ID[4] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E=1000; 

//revised Oct. 22, 1 997 
//revised Sept. 30, 1 997 

(ELEMENT_P+NODE_i)->F= 13 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B(0]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[2] ; 

(ELEMENT_P+NODEJ)->B[2]=ID[6]; 

(ELEMENT_P+NODE_i)->B [3]=ID[5] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

1 

NODEJ=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODEJ)->B[0]=ID[2]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[3] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[71; 

(ELEMENT_P+NODE_i)->B[3]=ID[6] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODEJ)->F=I3; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]-(ELEMENT_TMP+ELEMENT_i)->data[i]; 

1 

NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[3] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[0] ; 

(ELEMENT_P+NODE _i)->B[2]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[7] ; 

//revised on Oct. 22,1997 
(ELEMENT_P+NODE_i)->E= 1 000; 

//revised Oct. 22, 1997 
//revised Sept. 30, 1997 

(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+l ; 
/*(ELEMENT„P+NODE_i)->A=4; 
(ELEMENT_P+NODE_i)->B[0]=ID[3] 
(ELEMENT_P+NODE_i)->B[ 1 ]=ID[2] 
(ELEMENT„P+NODE_i)->B[2]=ID[ 1 ] 
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(ELEMENT_P+NODE_i)->B[3]=lD(0); 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

1 

NODE_i=NODEJ+l; 

(ELEMENT_P+NODEJ)->A=4; 

(ELEMENT_P+NODE_i)->B [0)=ID[7 ] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[6] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[4] ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP-hELEMENT_i)->data[i]; 

) 

NODEJ=NODE_i+i; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->B[0]=ID[43; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[0] ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

) 

NODE J=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->B[0]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=©[ 6] ; 

(ELEMENT_P+NODE_i)->B[2]=ID(2]; 

(ELEMENT_P+NODE_i)->B [3]=ID[ 1 ] ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE _i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->B[0]=IDE6]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[7] ; 

(ELEMENT_P+NODEJ)->B[2]=ID[3]; 

(ELEMENT_P+NODE _i)->B [3]=ID[2] ; 

0for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->B[0]=ID[7] ; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[4] ; 

(ELEMENT_P+NODE _i)->B[2]=ID[0] ; 

(ELEMENT_P+NODE J)->B [3 ]=ID[3] ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_j+l ;*/ 
break; 

case 13: 

//ELEMENT_NUM=ELEMENT_NUM+ 1 ; 

//revised in Oct., 1997 


for(i=0;i<20;i++) 

{ 

fscan^NEU.INP/^ldA&CHECKD); 

ID[i]=FindNid(CHECKD); 

} 

(ELEMENT_P+NODEJ)->A=4; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 
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(ELEMENT_P+NODE J)->B[ I ]=ID[ 1 ] ; 
(ELEMENT_P+NODEJ)->B[2]=ID[ 1 ] ; 
(ELEMENT_P+NODE_i)->B[3]=ID[0]; 

//revised Sept. 30, 1997 
(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 
for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODEJ)- 

>C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

) 

NODE_i=NODE_i+ 1 ; 
fgets(buffer,200,NEU_INP); 


//revised in Oct., 1997 

//comment out two lines below when switching with above block 
// fgets(buffer,200,NEU_INP); 

// fgets(buffer,200,NEU_INP); 

break; 

} 

for(i=0;i<4;i++) 

{ 

fgets(buffer,200,NEU_INP); 

1 

if(I4=13) 

{ 

CHECKD=0; 
while(CHECKD !=- 1 ) 

{ 

fscanf( NEU_INP, " % Id, " ,&CHECKD) ; 
fgets(buffer,200,NEU_INP); 


//HWhafs with this code block?-Dryer 1 1/24/97 
//ELEMENT_NUM=ELEMENT_NUM+1 ; 

//for(i=0;i<20;i++) 

// { 

// fscanf(NEU_INP,"%ld,’\&CHECKD); 

if(CHECKD!=-l){ 

ID[ 1 ]=FindNid(CHECKD); 

// } 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[03=ID[0] ; 
(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 
(ELEMENT_P+NODE_i)->B[2]=ID[l]; 
(ELEMENT_P+NODE_i)->B[3]=ID[0] ; 

//revised Sept. 30, 1997 
(ELEMENT_P+NODE_i)->F=I3 ; 

//revised Sept. 30, 1997 
for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)- 

>C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; } 
//fgets(buffer,200,NEU_INP); 


//!!What’s with this code block?-Dryer 1 1/24/97 


} 

//revised on Sept, 30, 1 997 
//to find the surface element 

//revised on Oct, 22, 1997 
// int flag; 

for(ELEMENTJ=0;ELEMENT_i<ELEMENT_NUM;ELEMENTJ++) 
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{ 

flag=0; 

i f( (ELEMENT_P+ELEMENT_i)->E== 1 000) 

{ 

NODE_i=ELEMENT_i+l ; 

while((NODE_i<ELEMENT_NUM)&&(flag==0)) 

{ 

if((ELEMENT_P+NODEJ)->E“ 1 000) 

{ 

flag=compare(ELEMENT_i,NODE_i); 


1 

if(flag==l) 

{ 

(ELEMENT_P+ELEMENTJ)->E=1 ; 
(ELEMENT_P+NODEJ)->E=l ; 

} 

else{ 

NODE_i=NODE_i+ 1 ; 

) 

} 

if(flag==0) 

{ 

(ELEMENT_P+ELEMENT_i)->E=0, 

(ELEMENT_P+NODE_i)->E=0; 


} 

} 

//revised on Oct. 22,1997 
//revised on Sept 30, 1997 
fclose(NEU_INP); 

//addin Oct., 1997 

//*********************** ***************************** *********// 


if(flag_solid = 1) 

{ 

printf( "Would you like to filter the internal surfaces?\n\n"); 

FLAG=1; 
while(FLAG == 1) 

{ 

printf("\n(Y) Yes; (N) No;\n"); 
gets(OUTPUT); 

//strcpy(OUTPUT,"Y"); //BEC+ 

if({ !strcmp(OUTPUT," Y")) II (IstrcmpCOUTPinV'y"))) 

{ 

tmpl = fopen("test.tmp”, ”w+”); 
tmp2=fopen( l1 ngst.tmp r, ,"w+"); 

ELEMENT_NUM_S=0; 

for (i = 0; i < ELEMENT_NUM; i++) 

{ 

if((ELEMENT_P 4- i)->E == 0) 

{ 

ELEMENT_NUM_S = ELEMENT_NUM_S + 1 ; 

fprintf(tmp2, "%ld\t%d\t%ld\t%ld\t%ld\t%ld\t%lg\t%lg\t%lg\t%lg\t%lg\t%d\t%d\n", 

(ELEMENT_P+i)->D,(ELEMENT_P+i}->A,(ELEMENT_P+i)->B[0],(ELEMENT_P+i)->B[l ] , 
(ELEMENT_P+i)->B[2],(ELEMENT_P+i)->B[31,(ELEMENT_P+i)->C[0] r 
(ELEMENT_P+i)->C[l],(ELEMENT_P+i)->C[23,(ELEMENT_P+i)->C[3], 
(ELEMENT_P+i)->C[4],(ELEMENT_P+i)->E,(ELEMENT_P+i)->F); 

(NODE_P + ((ELEMENT_P + i)->B[0]))->H = 1; 

(NODE_P + ((ELEMENT^ + i)->B[l]))->H = l; 

(NODE_P + ((ELEMENT_P + i)->B[2]))->H = 1; 

(NODE_P + ((ELEMENT_P + i)->B[3]))->H = 1; 

} 

} 

NODE_NUM_S = 0; 
for (i = 0; i < NODE_NUM; i++) 
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{ 

if((NODE_P + i)->H = l) 

{ 

NODE_NUM_S=NODE_NUM_S + I ; 

fprintf(tmpl, M %id\t%lg\t%lg\t%lg\t%Ig\t%lg\t%lg\t%lg\t%1g\t%lg\t%lg\t%lg\t%d\n’\ 

i+1, (NODE„P + i)->x, (NODE_P + i)->y, (NODE_P + i)->z, 

(NODE_P + i)->dx,(NODE_P + i)->dy, (NODE_P + i)->dz, (NODE.P + i)->output_data[0], 
(NODE_P + i)-x>utput_data[l], (NODE_P + i)->output_data[2], 

(NODE_P + i)->output_data[3], (NODE_P + i)->output_data[4] > 

(NODE_P + i)->H); 

} 

} 

rewind(tmp2); 

rewind(tmpl); 

ELEMENT_NUM=ELEMENT_NUM_S ; 

NODE_NUM=NODE_NUM_S; 

free(ELEMENT_P); 

ELEMENT_P=( struct ELEMENT_DAT A *)calloc(sizeof (ELEMENT_DATA),ELEMENT_NUM); 
free(NODE_P); 

NODE_P=(struct NODE_DATA *)calloc (sizeof(NODE_DATA),NODE_NUM); 
//printf("%d\t%d\n ,, ,ELEMENT_NUM,NODE_NUM); 


for (i=0;i<NODE_NUM;i++) 

{ 

//printf("tt=%d\n\i); 

fscanf(tmpi;'%ld\t%lg\t%lg\t%lg\t%lg\t%lg\t%lg\t%lg\t%]g\t%lg\t%Ig\t%lg\t%d\n’\ 

&((NODE_P+i)->A),&((NODE_P+i)->x),&((NODE_P+i)->y), 

&((NODE_P+i)->z),&((NODE_P+i)->dx),&({NODE_P+i)->dy), 

&((NODE_P+i)->dz),&((NODE_P+i)->output_data[0]), 

&((NODE_P+i)->output_data[ 1 ]),&((NODE_P+i)->output_data[2]), 
&((NODEJP+i)->output_data[3]),&((NODE_P+i)->output_data[4]) I 
&((NODE_P+i)->H)); 

} 

for (i=0;i<ELEMENT_NUM ;i++) 

{ 

//printf("%d\n",i); 

fscanf(tmp2/'%ld\t%d\t%ld\t%ld\t%ld\t%ld\t%lg\t%lg\t%lg\t%lg\t%lg\t%d\t%d\n'\ 

&((ELEMENT_P+i)->D),&((ELEMENT_P+i)->A),&IA,&IB,&IC,&IE,&((ELEMENT_P+i)->C[0]), 

&((ELEMENT_P+i)->C[l]),&((ELEMENT_P+i)->C[2]),&((ELEMENT_P+i)->C[3]), 

&((ELEMENT_P+i)->C[4]),&((ELEMENT_P+i)->E),&((ELEMENT_P+i)->F)); 

(ELEMENT_P+i)->B[0]=FindNid(IA+l); 

(ELEMENT_P+i)->B[l]=FindNid(IB+l); 

(ELEMENT_P+i)->B[2]=FindNid(IC+ 1 ); 

(ELEMENT_P+i)->B[3]=FindNid(IE+l); 

} 

fclose(tmpl); 

fclose(tmp2); 

FLAG=0; 

} 

else if((!strcmp(OUTPUT/N"))l!(!strcmp(OUTPUT, ,, rr))) 

{FLAG=0;| 

} 

} 

Z/***********************^^ to . node data ***************************// 


fp = fopen(” node. 1st", "w+"); 

for(NODEJ=0;NODEJ<NODE_NUM;NODE_i++) 

fprintf(fp,"%Id %10.51g %10.51g %10.51g %10.51g %10.51g %10.5lg %10.51g %10.51g %10.51g %10.5lg 

%10.51g\n", 

(NODE_P+NODE_i)->A,(NODE_P+NODEJ)->x,(NODE_P+NODE_i)->y,(NODE_P+NODE_i)->z, 

(NODE_P+NODE_i)->dx,(NODE_P+NODE_i)->dy,(NODE_P+NODE_i)->dz, 

(NODE_P+NODE_i)->output_data[0], 

(NODE_P+NODE_i)->output_data[ l],(NODE_P+NODE_i)->output_data[2], 
(NODE_P+NODE_i)->output_data[3],(NODE_P+NODE_i)->output_data[4]); 


fclose(fp); 
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^♦^fr*************^*********^^^ to file - element data*********************************// 


fp 1 =fopen("element.lstV'w+"); 

for(ELEMENT_i=0;ELEMENTJ<ELEMENT_NUM;ELEMENT_i++) 

fprintf(fpl,"%ld %ld %ld %ld %ld %ld %105lg 

%IO,51g %l0.51g %IO,51g %l0.5lg %ld %ld\n", 

(ELEMENT_P+ELEMENT_i)->D. 

(ELEMENT_P+ELEMENT_i)->A, 

(ELEMENT_P+ELEMENT_i)->B[0], 

(ELEMENT_P+ELEMENT _i)->B[ 1 ), 

(ELEMENT_P+ELEMENTJ)->B[2], 

(ELEMENT_P+ELEMENT_i)->B[3], 

(ELEMENT_P+ELEMENT_i)->C[0], 

(ELEMENT_P+ELEMENT_i)->C[ I ] , 

(ELEMENT_P+ELEMENT_i)->C[2], 

(ELEMENT_P+ELEMENT_i)->C[3], 

(ELEMENT_P+ELEMENT_i)->C[4], 

(ELEMENT_P+ELEMENT_i)->E, 

(ELEMENT_P+ELEMENT_i)->F) ; 


) 

fclose(fpl); 

^*********** + ************pn nt t0 fil e . i n f 0 data***************************// 


fp2=fopen( M inf.lstV'w+"); 

fprintf(fp2/’%ld %ld %ld\n ,, ,NODE_NUM,ELEMENT_NUM,ELEMENT_NUMl); 
for(i=0;i<5-U_NUM ;i++) 

fprintf(fp2,"%ld %10.51g %l0.51g %10.51g%sMotaLnum[case_set_num[U[i]]-l],MIN_VALUE[case_set_num[U[i]]- 
l],MAX_VALUE[case_set_num[U[i]]-l],AMAX_VALUE[case_set_num[U[i]]*l]>out_set_name[case_set_num[U[i]]-l]); 

strncpy(names->actual„set_name[i],out_set_name[case_set_num[U[i]]],strlen(out_set_narne[case_set_num[U[i]]])); 

} 

for(i=0;i<5-V_NUM;i++) 

fprintf(fp2,"%ld %10.51g %10.51g %10.51g%sMotal_num[case_set_num[V[i]]-l] r MIN_VALUE[case r set_num[V[i]]- 
l],MAX_VALUE[case_set_num[V[i]]-l],AMAX_VALUE[case_set_num[V[i]3-l],out_set_name[case_set_num[V[i]]-l]); 

stmcpy(names->actual_set_name(5+i],out_set_name[case_set_num[V[i]]],strlen(out_set_name[case_set_num[V[i]]3)); 

} 

fclose(fp2); 

******* * ********** ♦*★*♦*** *pj-j n t to file - LOAD fata*********************************// 


if(LOAD_YES == 1){ 

fp_load = fopen("load.lst'\ ”w+"); 


for(i = 0; i < LOAD_NUM; i++){ 

fprintf(fpJoad, ”%d %s", LO AD_SET[ i ] .SET_ff), LOAD_SET[i].NAME); 
for(q = 0; q < LOAD_SET[i].NUM; q++){ 

fprintf(fp_load, "%ld %d\n", LOAD_SET[i].ID[q], LOAD_SET[i].TYPE[q]); //NODE 

OR ELEMENT ID 


LOAD_SET[i].VALUE[q*8+2+r]); 

} 


for (r = 0; r < 6; r++) 

fprintf(fp_load, ”%d %lg\n", LOAD_SET[i].FACE[q*6+r], 


} 

fclose(fpjoad); 


} 

yy****************************pp n t to file - CONSTRAINT data*********************************// 

if(CONSTRAINT_YES == 1){ 

fp_constraint = fopen("constraint.Isf\ "w+"); 

for(I2 = 0; 12 < CONSTRAINT_NUM; I2++){ 
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fprintf(fp_constraint, "%d %s”, CONSTRAINT_SET[12].A, CONSTRAINT_SET[I2].B); 

for(I3 = 0; 13 < CONSTRAlNT^SET[12].NUM; 13++) 

fprintf(fp_cons(rainl, "%ld %d %d %d %d %d 

%d\n", CONSTRAINT_SET[I2].lD[I3], 

CONSTRAINT_SET[I2].lNDEX[I3*6], CONSTRAlNT_SET[I2].INDEX[I3*6+l], 
CONSTRAINT_SET[I2].INDEX[I3*6+2],CONSTRAINT_SET[I2].INDEX[I3*6+3], 
CONSTRAINT_SET[ 12). INDEX) l3*6+4],CONSTRAINT_SET[ 12). INDEX) 13*6+5]); 



ff************* ************ **********************************************// 

// Function: FindNid 

// Inputs: Entity ID - ID of node or element for output 

// Outputs: Node ID 

// Date revised and comments: 

jj***** ******** ******************************************** ********* *****jj 


long int FindNid(long int u) 

{ 

long int NL,NH,Ntmp; 
if(u = 0) 

return Ntmp = -1 ; 


> 


if((NODE_P + NODE_NUM)->A = u) 
Ntmp = NODE_NUM; 


else 


NH = NODE_NUM - I ; 

NL = 0; 

while(NL <= NH) 

{ 

Ntmp = (NH + NL) / 2; 
if(u < (NODE_P + Ntmp)->A) 

NH = Ntmp - 1; 

else if((NODE_P + Ntmp)*>A < u) 

NL = Ntmp + 1 ; 

else 


} 

} 

return Ntmp; 


return Ntmp; 


jj ********************** ****** ********** ******* ************ ********* *****u 
//Function: FindEid 
// Inputs: 

// Outputs: 

// Date revised and comments: 

j j ************************************************************ ***********/! 


long int FindEid(long int u) 

{ 

long int NL, NH, Ntmp; 
if(u = 0) 

return Ntmp = -1; 

if((ELEMENT_TMP + ELEMENT_NUM 1 )->A = u) 
Ntmp = ELEMENT_NUM1 ; 

else 

{ 

NH = ELEMENT_NUM 1 - 1 ; 

NL = 0; 

while(NL <= NH) 

( 

Ntmp = (NH + NL) / 2; 
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if(u < (ELEMENTJTMP + Ntmp)->A) 

NH = Ntmp - 1; 

else if((ELEMENT_TMP + Ntmp)->A < u) 
NL = Ntmp + 1 ; 

else 

return Ntmp; 


return Ntmp; 


//revised on Oct. 22,1997 

H **************************** ********************************** * **** **** ff 

//Function: Compare 
// Inputs: element_i, node_i 

//Outputs: Flag 

// Date revised and comments: Oct. 22,1997 

U++ ************ ******** ********************************************* ****// 

int compare(long int ELEMENTJ, long int NODE_i) 

{ 

int FLAG, C[4], i, j; 

for(i = 0; i < 4; i++) 

C[i] = 0; 


} 


for(i = 0; i < 4; i++) 

{ 

j = 3; 

FLAG = 0; 

while((j >= 0) && (FLAG == 0)) 

if((ELEMENT_P + ELEMENT_i)->B[i] = (ELEMENT_P + NODE_i)->B[j]) 

{ 

FLAG = l ; 

C[i] = 1; 

} 

} 

) 

if((C[0] = 1) && (C[l] = 1) && (C[2] = 1) && (C[3] = !)) 
return FLAG = 1 ; 

else 

return FLAG = 0; 


//revised on Oct. 22, 1997 
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^* ************ ********> ***************************************************************** 

DVET Release 2.2/1 1/98 for WindowsNT Workstation 

dvetwin.c 

1 1 February 1 998 

Copyright 1998 

Dual Incorporated 

di_add_vertex_color() 

di_animalarm() 

di_animTimer() 

di_create_body_handler() 

di_det_blocks() 

di_JFEM_interact() 

di_input_nodes() 

di_input_mods() 

di_intersect_handler() 

di_modify_FEM() 

di_modify_Mesh() 

di_output_mods() 

di_Pmesh_mesh() 

di_Pmesh_obj() 

di_set_range() 

diBodyMoveToFunc() 

diBodyStartupPosFEMFunc() 

diCreateFEMMeshFuncO 

diCreateObjectFunc() 

diCreateTextFunc() 

dilmmersDataFuncO 

diNavModeFunc() 

diOutputSetFunc() 

diSetViewFuncO 

diToggleAnimFuncO 

diToggleAnimModeFunc() 

diToggleMeshDynFunc() 

AUTHOR: David A. Dryer, Dual Incorporated 

RegisterScaleToolFunctionsO 

ResetSliders_cb() 

SetSliders_cb() 

ToolCreation_cb() 

UpdateS lider_cb() 

UpdateSliderInfo_cb() 

WidgetCreation_cb() 

Initial CAU prototype integration of dVS/dVISE widgets: Dr. Sriprakash Sarathy. Clark Atlanta University 4/29/97 
DVET modifications and widget additions: Dr. David Dryer, Dual Incorporated 

fem2vr() 

FindEidO 

FindNidO 

Author: Dr. Baojiu Lin, University of Central Florida 

DVET integration and integration modifications: Dr. David Dryer, Dual Incorporated 
********************************************************** ******************************************/ 


#include <stdio.h> 

#include <ctype.h> 

#include <stdlib.h> 

#include <string.h> 

#include <signal.h> 

#ifdef _UNIX 
#include <unistd.h> 

#endif /* _UNIX */ 

#include <dvs/vc.h> 

#include <dvise/dvise.h> 

//include for FEM2VR translator 
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#include "fm2vrl 120.h" 

//include for InsideTrak headtracker 
#include "inside 1 120.h" 

#defme min(a,b) ((a)<(b)?(a):(b» 

#define max(a,b) ((a)>(b)?(a):(b» 

/* PRIVATE STRUCTURES ===================== 

/* 

* This structure is created by the 'myToolCreation’ function and used 

* to store references to the widgets in the interface. These references 

* are filled in by the ’myWidgetCreation’ function which is called by 

* each widget when it is created. These references allow the values of the 

* widgets to be set by other functions within the interface since this 

* data structure can be accessed via the Toolbox Used Data. 

*/ 


typedef struct _SliderDataStruct { 
VWidget *LoadFact; 

VWidget *LoadDisp; 

VWidget *ThreshFact; 

VWidget *ThreshDisp; 

VWidget *ExagerFact; 

VWidget *ExagerDisp; 

VWidget *ClrSclTop; 

VWidget *ClrSclTopDisp; 
VWidget *ClrSclBot; 

VWidget *ClrSclBotDisp; 

} SliderDataStruct; 

typedef struct JntersectArgs 

{ 

uint32 *event; 

ECObject *object; 

} intersectArgs; 

typedef struct _Move Info { 
VCBody *body; 
dmPoint posa; 
dmPoint posb; 
dmPoint velocity; 
dmPoint bodyOffset; 
float32 time, totalTime; 
int32 active; 

ECStateType state; 

} Movelnfo; 

typedef struct _PmeshInts { 

uint32 noVertices; 
uint32 noVertmesh; 
uint32 noFaces4; 
uint32 noFaces3; 
uint32 rightvert; 
uint32 rightelem; 
uint32 adjindex; 

} Pmeshlnts; 

typedef struct _Switches { 


uint32 

navstate; 

uint32 

navmode; 

uint32 

setl ; 

uint32 

set2; 

uint32 

picknode; 

uint32 

meshdynmode; 

uint32 

outtypenum; 

uint32 

outsubnum; 

uint32 

animmode; 

uint32 

startanim; 

uint32 

loadcasestate; 

uint32 

constraintstate; 


//0 is node type output, 1 is element type output 
//node or element subtype index (0-4) in output array 
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} Switches; 


typedef struct _Points { 


dmPoint 

FEMcenter; 

dmPoint 

viewl ; 

dmPoint 

view2; 

dmPoint 

rightnodep; 

dmPoint 

loadnodep; 


} Points; 

typedef struct _Floats { 

float32 out_vals[5]; 
float32 out_min; 
float32 out_max; 
float32 absmax; 
float32 threshold; 
float32 scale; 
float32 LoadFactor; 
float32 transp; 
float32 exager; 
float32 curout; 
float32 beamdelta; 
float32 xyzmax; 
float32 clrscltop; 
float32 clrsclbot; 
float32 femsclbotl[3]; 
float32 femsclbotr[3]; 
float32 femscltopr[3]; 
float32 femscltopl[3]; 
float32 alphainmg; 
float32 alphathresh; 
float32 alphaoutmg; 

} Floats; 

typedef struct _Chars { 

char outtxt[200]; 
char scltxt[200]; 

} Chars; 

typedef struct _VCfloats { 

VCColor vcolour; 
VCColor posmaxcolor; 
VCColor posmincolor; 
VCColor negmaxcolor; 
VCColor negmincolor; 
VCColor posthreshcolor; 
VCColor negthreshcolor; 
VCColor outofmgcolor; 

} VCfloats; 

struct NAMES *names;//malloc 

typedef struct myEntityUst { 

VCEntity *nodeobj; 
VCAttribute *vis; 
dmPoint nodepoint; 

// VCVisual *vis; 

struct myEntityList *next; 

} EntityUst; 

//_amblksiz= 16384; 


Pmeshlnts *pmi;//malloc 
Points *points;//malloc 

Switches *switches;//malloc 
Floats * floats ;//malloc 

Chars *chars;//malloc 

VCfloats * vcfloats ;//malloc 
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float32 *vertices, *vertmesh;//maUoc 

float32 *displaceobj, *displacemesh;//malloc 

float32 *femscl verts, Hemsclgrdverts;//rnalloc 

uint32 *connections4, *connections3;//malloc 

uint32 *femsclconts, *femsclgrdconts;//malloc 

uint32 *conmesh4, *conmesh3;//malloc 

float32 *out vert;// malloc 

uint32 *elearray;//malloc 

VCGeometry *femtextstring;//rnalloc 

VCGeometry *clrscUextstring;//malloc 

VCIntersectionReportData *intersectionReportData;// malloc 

uint32 *loadcoordind = NULL; 

uint32 *loaddfind = NULL; 

uint32 *loadtrack = NULL; 

uint32 *constrcoordind; 

uint32 *constrdfmd; 


static VCTime *syncTime=NULL; 
EntityList *LoadList; 

Entity List *ConstrList; 


//VCColour white={ 1,1,1 },gray={ 0 . 5 , 0 . 5 , 0 . 5 ),black={ 0 , 0 , 0 },red=( l,0,0),yellow={ l,l,0),blue={0,0.1 },green={0,l,0) 


ECObject *objFEM, *objMesh, *objFEMText,//malloc 

*objClrScl,*objClrSclGrid,*objClrSclText, 

*objViewButton, *objViewText, 

*objDataButton, *objDataText, 

*objVisButton, *objVisText; 

ECObjectReference *objFEMref, *obj Mesh ref, *objFEMTextref, //malloc 

♦objClrSclref, *objClrSclGridref,*objClrSclTextref, 
♦objViewButtonref, *objViewTextref, 
♦objDataButtonref, *objDataTextref, 
♦objVisButtonref, *objVisTextref; 

^********************+* ^ * function prototypes************** 1 ******** ****// 


int 

di_create_body_handler(VCBodyCreate_CallbackData *bodyData, void *data); 


jj********** *********************************************** **************// 

U Function: di_det_blocks 

If*******##**************************************************************// 

int di_det_blocks() 

{ 

int adj=0; 
int i,j,k; 

int elemindex; 

uint32 *tracknode; 

dmPoint beaml,beam2; 

dmVector beamvect; 

float32 beamdist; 

pmi=(PmeshInts *)malloc(sizeof(Pmeshlnts»; 
tracknode=(uint32 * )calloc(NODE_NUM,sizeof(uint32)); 

pmi->noVertices=NODE_NUM; 

pmi->noVertmesh=NODE_NUM; 

for (elemindex=0;elemindex<ELEMENT_NUM ;elemindex++) 

{ 

if((ELEMENT_P+elemindex)->A==2) 

{ 

dmPointSet (beaml, 
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(NODE_P+((ELEMENT_P+elemindex))->B[0])->x, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->y, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->z); 

dmPointSet (beam2, 

(NODE_P+((ELEMENT_P+elemindex))->B[ I J )->x, 
(NODE_P+((ELEMENT_P+e1emindex))->B[ 1 ])->y, 
(NODE_P+((ELEMENT_P+elemindex))->B[ 1 ])->z); 

dmPointSub (beamvect, beaml, beam2); 

beamdist=sqrt((beamvect[0]*beamvect[0])+(beamvect[l]*beamvect[l])+(beamvect[2]*beamvect[2])); 

if (beamdist > .000000001 ) 

{ 

for (i=0; i<2; i++) 

{ 

if (i=0) 

{ 

j=0;k=l; 

) 

else 

{ 

j=3;k=2; 

} 

if (tracknode[((ELEMENT_P+elemindex)->B[i])] !- 1 ) 

I 

tracknode[( (ELEMENT_P+elemindex)->B [i] )] = 1 ; 

} 

else 

{ 

pmi->noVertices++; 

} 

pmi->noVertmesh++; 
pmi ->no Vertices-H-; 

} 

pmi->noFaces4++; 


} 

//If element type is 4 nodes... 

if((ELEMENT_P+elemindex)->A=4) 

{ 

for (i=0; i<4; i++) 

{ 

if (tracknode[((ELEMENT_P+elemindex)->B[i])] !=!) 

{ 

tracknode[((ELEMENT_P+elemindex)->B[i])]=l; 

} 

else 

{ 

pmi->noVertices++; 

} 

} 

pm i ->noFaces4++ ; 

} 

//If element type is 3 nodes... 

if((ELEMENT_P+elemindex)->A=3) 

{ 

for (i=0; i<3; i++) 

{ 

if ((ELEMENT_P+elemindex)->B[i]==-l ) adj=l ; 
if (tracknode[((ELEMENT_P+elemindex)->B[i+adj])]!=l ) 

{ 

tracknode[((ELEMENT_P+elemindex)->B[i+adj])]— l ; 

} 

else 

{ 
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pmi->noVertices++; 


» 

) 

adj=0; 

pmi->noFaces3++; 


^/* ****** *********> t** ************************************************ ****// 

H Function: di_input_nodes 

^y* ******************************************************** **************// 

int di_input_nodes() 

{ 

int i j; 

float32 x max =0.0; 
float32 ymax=0.0; 
float32 zmax=0.0; 
float32 xmin= 10000.0; 
float32 ymin= 1 0000.0; 
float32 zmin= 10000.0; 

vertices=malloc((pmi->noVertices*7)*sizeof(float32)); 

vertmesh=malloc((pmi->no Vertices *3 )*sizeof(float32»; 

displaceobj=malloc((pmi->noVertices*3)*sizeof(float32)); 

displacemesh=malloc((pmi->noVertices*3)*sizeof(float32)); 

loadcoordind=malloc((LOADSET_NUM)*sizeof(uint32)); 

loaddfind=malloc((LOADSET_NUM)^sizeof(uint32)); 

loadtrack=malloc((LOADSET_NUM)*sizeof(uint32)); 

constrcoordind=malloc((CONSTRAINTSET_NUM)*sizeof(uint32)); 

constrdfind=maIloc((CONSTRAINTSET_NUM)*sizeof(uint32)); 

for (i=0;i < NODE_NUM;i-f+) 

{ 


//Vertex node coordinates - x,y,z assigned to vertices array elements 
//e.g., vertices[0,l,2...7,8,9... 

vertices[(i*7)+0] = ((NODE_P+i)->x)*floats->scale; 
vertices [(i*7)+l ]= ((NODE_P+i)->y)*floats->scale; 
vertices [(i *7 )+2]= ((NODE_P+i)->z)*floats->scale; 

displaceobj[(i*3)+0]=((NODE_P+i)->dx); 
displaceobj [(i* 3 )+ 1 ]=((NODE_P+i)*>dy); 
displaceobj[(i*3)+2]=((NODE_P+i)->dz); 
displaceobj [(i*3)+0]*=floats->sc ale; 
displaceobj [ (i * 3 )+ 1 ] * =floats -> sc ale ; 
displaceobj [ (i * 3 )+2] *=floats->scale; 

vertmesh[(i*3)+0] = ((NODE_P+i)->x)*floats->scale; 
vertmesh[(i*3)+l]= ((NODE_P+i)->y)*floats->scale; 
vertmesh[(i*3)+2]=((NODE_P+i)->z)*floats->scale; 

displacemesh[(i*3)-H3]=((NODE_P+i)->dx); 

displacemesh[(i*3)+l]=((NODE_P+i)->dy); 

disptacemesh[(i*3)+2]=((NODE_P+i)->dz); 

displacemesh[(i*3)+0]*=floats->scale; 

displacemesh[(i*3)+l]*=floats->scale; 

displacemesh[(i*3)+2]*=floats->scale; 

// get min, max x,y,z values 

xmax=max(xmax,((NODE_P+i)->x)*floats->scale); 

xmin=min(xrnin,((NODE_P+i)->x)*floats->scale); 

ymax=max(yrnax,((NODE_P+i)->y)*floats->scale); 

ymin=min(ymin,((NODE„P+i)->y)*floats->scale); 

zmax=max(zmax,((NODE_P+i)->z)*floats->scale); 

zmin=rnin(zmin,((NODE„P+i)->z)*floats->scale); 


E-124 



for (j = 0;j < LOADS ET_NUM && j < 100;j++) 

{ 

if (LOAD_SET[LOADSET_PICK].TYPE[j] == l) 

{ 

if (LOAD_SET[LOADSET_PICK].ID[j] == (NODE_P+i)->A) 

{ 

loadcoordind[j] = i; 
loaddfind[j] = j; 


} 

for (j=0;j<CONSTRAINTSET_NUM;j++) 

' if (CONSTRAINT_SET[CONSTRAINTSET_PICK].ID[j] == (NODE_P+i)->A) 

{ 

constrcoordindQ] = i; 
constrdfindlj] = j; 

} 

} 


} 

//get FEM center point 

points->FEMcenter[VC_X]=xmin+((xmax-xmin)/2.0); 

points->FEMcenter[VC_Y]=ymin+((ymax-ymin)/2.0); 

points->FEMcenter[VC_Z]=zmin+((zmax-zmin)/2.0); 

// get max axis length 

if((xmax >= ymax) && (xmax >= zmax)) 

{ 

floats->xyzmax=xmax-xmin; 

} 

else if((ymax >= xmax) && (ymax >= zmax)) 

{ 

floats->xyzmax=ymax-ymin; 

} 

else 

{ 

floats->xyzmax=zmax-zmin; 

} 

return 1; 

> 

U *************** * *** ***************** * ********** * ****************** * **** ff 

//Function: di_set_range 

^** *************************** ********************** *** ****** ******* ****// 
int di_set_range() 

i 

uint32 outindex,OUT_NUM; 

floats ->out_min= 1 00000; 
floats->out_max=- 1 00000; 

if (switches->outtypenum==0) 

{ 

OUT_NUM=NODE_NUM; 

for (outindex=0;outindex<OUT_NUM ;outindex++) 

floats->out_min=min(floats->out_min,(NODE_P+outindex)->output_data[switches->outsubnum]); 

floats->out_max=max(floats->out_max,(NODE_P+outindex)->output_data[switches->outsubnum]); 

} 

} 

else 

{ 

OUT_NUM=ELEMENT_NUM ; 

for (outindex-0;outi ndex<OUT_NUM ;outindex++) 

floats->out_min=min(floats->out_min,(ELEMENT_P+outindex)->C[switches->outsubnurn]); 

floats->out_max=max(floats->out_max,(ELEMENT_P+outindex)->C[switches->outsubnum]); 
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//initially set threshold here 
floats->out_vaJs[0]=floats->out_min; 
floats->out_vals[ 1 ] =0.0 ^/thresh old 
floats ->ou t_vals [ 2 ]= fl oats ->ou t_max ; 

floats->absrnax=max(fabs(floats->out_min),fabs(floats->out„max)); 

return 1 ; 

} 


*********************** * *** **************************************** **/f 
// Function: di_add_vertex_color - sets vertex colours 

H* ^ ** ************************ * ** ** * *********** ************* *********** **// 

int di_add_vertex_color(void) 


//For each curout value, determines if out is positive and in set color region 

if(floats->curout>=0.0 && floats->curout>=floats->out_vals[0] && floats->curout<=floats->out_vals[2]) 

//If positive and in color region, determines if out is under threshold level -assign positive threshold color 
if(floats->curout<floats->threshold*floats->out_max) 

{ 

vcfloats->vcolour[0]=vcfloats->posthreshcolor[0]; 
vcfloats->vcolour[ 1 ]=vcfloats->posthreshcolor[ 1 ] ; 
vcfloats->vcolour[2]=vcfloats->posthreshcolor[2]; 
floats->transp=floats->alphathresh; 

} 

//If positive, in color region, and not under threshold level-assign color 
else 
{ 

vcfloats->vcolour[0]=vcfloats->posmincolor[0]+ 


>out_vals[0]))/(floats->out_vals[2]-max(0.0,floats->out_vals[0])))* 


>posmincolor[0]); 


vcfloats->vcolour[ 1 ]=vcfloats->posmincolor[ 1 ]+ 


>out_vals[0]))/(floats->out_vals[2]-max(0.0,floats->out_vals[0])))* 


>posmincolor[l]); 


vcfloats->vcolour[2]=vcfloats->posmincolor[2]+ 


>out_vals[0]))/(floats->out_vals[2]-max(0.0,floats->out_vals[0])))* 


>posmincolor[2]); 


floats->transp=floats->alphainmg; 


((floats' >curout-max(0.0,floats- 
(vcfloats->posmaxcolor[0]-vcfloats- 

((floats->curout-max(0.0,floats- 
(vcfloats->posmaxcolor[ 1 ] - vcfloats- 

((floats->curout-max(0.0,floats- 

(vcfloats->posmaxcolor[2]-vcfloats- 


i 

//For each curout value, determines if out is negative and in set color region 

else if(floats->curout<0.0 && fabs(floats->curout)>=floats->out_vals[0] && floats->curout>=floats->out_vals[0]) 

//If negative and in color region, determines if out is above threshold level-assign negative threshold color 
if(floats->curout>floats->threshold*floats->out_min) 

{ 

vcfloats->vcolour[0]=vcfloats->negthreshcolor[0]; 
vcfloats->vcolour[ 1 ]=vcfloats->negthreshcolor[ 1 ]; 
vcfloats->vcolour[2]=vcfloats->negthreshcolor[2]; 
floats->transp=floats->alphathresh; 


} 

//If negative, in color region, and not above threshold level-assign color 
else 
{ 

vcfloats->vcolour[0]=vcfloats->negmincolor[0]+ 

>curout)/(min(0.0,floats->out_vals[2])-floats->out_vals[0]))* 

>negmincolor[0]); 


((min(0.0,floats->out_vals[2])-floats- 

(vcfloats->negrnaxcolor[0]-vcfloats- 
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vcfloats->vcolour[l]=vcfloats->negmincolor[ 1]+ 
>curout)/(min(0.0,floats->out_vals[2])-floats->out_vals[0]))* 

>negmincolor[l]); 

vcfloats->vcolour[2]=vcfloats->negmincoIor[2]+ 

>curout)/(rnin(0.0,floats->out_vals[2])-floats->out_vals[0]))* 


((min(0.0,f)oats->out_vals[2])-floats- 
(vcfloats->negmaxcolor[ 1 ]-vcfloats- 

((min(0.0,floats->out_vals[2])-floats- 

(vcfloats->negmaxcolor[2]-vcfloats- 


>negmincolor[2]); 


} 


floats->transp=floats->alphainmg; 


//For each curout value, determines if curout is out of color scale range - then don't show 
else 


{ 

vcfloats->vcolour[0]=vcfloats->outofmgcolor[0];//black 
vcfloats->vcolour[ 1 ]=vcfloats->outofmgcolor[ 1 ] ; 
vcfloats->vcolour[2]=vcfloats->outofmgcolor[2]; 
floats->transp=floats->alphaoutmg; 

I 

return 1; 


^* ****** ****** ******************************************** **************// 
//Function: di_input_mods 

^** ******************************************************** *** * ***** ****// 


int di_input_mods() 

{ 

int 

int 

int 

uint32 

dmPoint 

dmVector beamvect; 

float32 

int 

int 


elemindex; 

adj=0; 

ij.k; 

*tracknode; 

beaml,beam2; 

beamdist; 

cused3=0; 

cused4=0; 


connections4=(uint32 *)malloc((pmi->noFaces4*4)*sizeof(uint32)); 
connections3=(uint32 *)malloc((pmi->noFaces3*3)*sizeof(uint32)); 
conmesh4=(uint32 *)malloc((pmi->noFaces4*4)*sizeof(uint32)); 
conmesh3=(uint32 *)malloc((pmi->noFaces3*3)*sizeof(uint32»; 
elearray=(uint32 *)malloc(ELHMENT_NUM*5*sizeof(uint32)); 
tracknode=(uint32 *)calloc(NODE_NUM,sizeof(uint32)); 


pmi->noVertices=NODE_NUM;pmi->noVertmesh=NODH_NUM; 


for (elemindex=0;elemindex<ELEMENT„NUM ;elemindex++) 

{ 

if((ELEMENT_P+elemindex)->A==2) 

{ 

dmPointSet (beam 1 , 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->x, 

(NODE_P+((ELEMENT_P+elemindex»->B[0])->y, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->z); 

dmPointSet (beam2, 

(NODE_P+((EIJEMENT_P+elemindex))->B[ 1 ])->x, 
(NODE_P+((ELEMENT_P+elemindex))->B[l ])->y, 
(NODE_P+((ELEMENT_P-tolemindex))->B [ 1 ] )->z); 

dmPointSub (beamvect, beaml, beam2); 

beamdist=sqrt((beam vect[0] *beam vect[0] )+(beamvect[ 1 ] *beamvect[ 1 ] )+(beam vect[2] *beamvect[2] )); 
if (beamdist > .000000001) 

elearray[elemindex*5]=((ELEMENT_P+elemindex)->A)+2; 
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for (i=0; i<2; i++) 


if (i=0) 


j=0;k=l ; 


else 

{ 

j=3;k=2; 

} 


i f ( tracknode [ ((ELEMENT_P+elemindex)->B [ i] )] != 1 ) 

{ . . 

connections4[cused4+j]=((ELEMENT_P+elemindex)->B[i]); 

tracknode[((ELEMENT_P+elemindex)->B [i] )]=1 ; 
elearray[(elemindex*5)+(j+ 1 )]=(ELEMENT_P+elemindex)->B [i] ; 


else 

{ 

connections4[cused4+j]=pmi->noVertices; 

vertices[((pmi- 

>noVertices)*7)+0]=vertices[(((ELEMENT_P+elemindex)->B[i])*7)+0]; 

vertices[((pmi- 

>noVertices)*7)+ 1 ]=vertices[(((ELEMENT_P+elemindex)->B [i])*7)+l] ; 

vertices[((pmi- 

>noVertices)*7)+2]=vertices[(((ELEMENT_P+elernindex)->B[i])*7)+2]; 


displaceobj[(pmi- 

>noVeitices*3)+0]=displaceobj[(((ELEMENT_P-*-elemindex)->B[i])*3)+0]; 

displaceobj[(pmi- 

>noVertices*3)+ 1 ]=displaceobj[(((ELEMENT_P-i-elemindex)->B [i ])*3)+ 1 ] ; 

displaceobj[(pmi- 

>noVertices*3)+2]=displaceobj[(((ELEMENT_P+elemindex)->B[ij)*3)+2]; 

elearray[(elemindex*5)+(j + 0]=pnii->noVertices; 

pmi->noVeitices++; 

} 


conmesh4[cused4+j]=((ELEMENT_P+elemindex)->B[i]); 

conmesh4[cused4+k]=pmi->noVertmesh; 

vertmesh[((pmi- 

>noVertmesh)*3)+0]=(vertices[(((ELEMENT_P+elemindex)->B[i])*7)+0])+(bcamdist/floats->beaindelta); 

vert mesh [((pmi- 

>noVertmesh)= 4t 3)+l]=(vertices[(((ELEMENT_P+elemindex)->B[i])*7)+l])+(beamdist/floats->beaiTKlelta); 

vertmesh[((pmi- 

>noVertmesh)*3)+2]=(vertices[(((ELEMENT_P+elemindex)->B[i])*7)+2])+{bean»dist/floats->beamdella); 


displacemesh[(pmi* 

>noVeitmesh*3)+O]=displacemesh[(((ELEMENT_P+elemindex)->B[i])*3)+0]; 

displacemesh[(pmi- 

>noVertmesh*3)+l]=displacemesh[(((ELEMENT_P+elemindex)->B[i])*3)+l]; 

displacemesh[(pmi- 

>noVertmesh*3)+2]=displacemesh[(((ELEMENT_P+elemindex)->B[i])*3)+2]; 


>B[i])*7)-K)])+(beamdist/floats->beamdelta); 

>B[i])*7)+l])+(beamdist/floats->beamdelta); 

>B[i])*7)+2])+(beamdist/floats->beamdelta); 


connections4[cused4+k]=pmi->noVertices; 

vertices[((pmi->noVertices)*7)+0]=(vertices[(((ELEMENT_P-i-elernindex)- 

vertices[((pmi->noVertices)*7)+l]=(vertices[(((ELEMENT_P+elemindex)- 

vertices[((pmi->noVertices)*7)+2]=(vertices[(((ELEMENT_P+elemindex)- 


displaceobj[(pmi- 

>noVertices*3)+0]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+0]; 

displaceobj[(pmi- 

>noVertices*3)+l]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+l]; 
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displaceobj[(pmi- 

>noVertices*3)+2]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+2]; 

elearray[(elemindex*5)+(k+l)]=pmi->noVertices; 

pmi->noVertmesh++; 

pmi->noVertices++; 


cused4+-4; 


} 

if((ELEMENT_P+elemindex)->A==4) 

{ 

elean‘ay[eiernindex*5]=(ELEMENT_P+elemindex)->A; 


for (i=0; i<4; i++) 

{ 

conmesh4[cused4+i]-((ELEMENT_P+clemindex)->B[i]); 

if (tracknode[((ELEMENT_P+elemindex)->B[i3)] !=1) 

{ 

connections4[cused4+i]=((ELEMENT_P+elemindex)->B[i]); 
tracknode [ ((ELEMENT_P+elemindex)->B [i] )] = 1 ; 

eIearray[(e!emindex*5)+(i+l)]=(ELEMENT_P+elemindex)->B[i]; 


>B[i])*7]; 

>B[iJ)*7)+l]; 

>B[i])*7)+2]; 


else 

{ 

connections4[cused4+i]=pmi->noVertices; 

vertices[(pmi->noVertices)*7]==vertices[((ELEMENT_P+elemindex)- 

vertices[((pmi->noVertices)*7)+l]=vertices[(((ELEMENT_P+elemindex)- 

vertices[((pmi->noVertices)*7)+2]=vertices[(((ELEMENT_P+eIemindex)- 


displaceobj[(pmi- 

>noVertices*3)+0]=displaceobj[(((ELEMENT_P+eIemindex)->B[i])*3)+0]; 

displaceobj[(pmi- 

>noVertices*3)+l]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)+ 1 ]; 

displaceobj[(pmi- 

>noVertices*3)+2]=displaceobj[(((ELEMENT_P+elemindex)->B[i])*3)-»-2]; 

elearray[(elemindex*5)+(i+ 1 )]=pmi~>noVertices; 


} 


pmi->noVertices++; 


cused4+=4; 


//If element type is 3 nodes, read nodes into connections3 
//e.g. , connections3 [0, 1 ,2.. .3,4,5 . ..6,7,8. . 

if((ELEMENT_P+elemindex)->A=3) 

{ 

elearray[elemindex*53=(ELEMENT_P+elemindex)->A; 

for (i=0; i<3; i++) 

{ 

if ((ELEMENT_P+elemindex)->B[i]=- 1 ) adj= 1 ; 

conmesh3[cused3+i]=((ELEMENT_P+elemindex)->B[i-fadj]); 

if (tracknode[((ELEMENT_P+elemindex)->B[i+adj])]!=l) 

connections3[cused3+i]=((ELEMENT_P+elemindex)->B[i+adj]); 
tracknode[((ELEMENT_P+elemindex)->B[i+adj])]=l ; 
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>B[i+adj])*7]; 
>B[i+adj])*7)+l]; 
>B[i+adj])*7)+2] ; 


elearray[(elemindex*5)+(i+l )]={ELEMENT_P+elemindex)->B[i+adj]; 

} 

else 

{ 

connections3[cused3+i]=pmi->noVertices; 

vertices[(pmi->noVertices)*7]=vertices[((ELEMENT_P+elemindex)- 

vertices[((pmi->noVertices) 3, ‘7)+l]^vertices[(((ELEMENT_P+elemindex)- 

vertices[((pmi->noVertices)*7)+2]=vertices[(((ELEMENT_P+elemindex)- 


displaceobj[(pmi- 

>noVertices*3)+0]=displaceobj[(((ELEMENT_P+elemindex)->B[i+adj])*3)+0]; 

displaceobj[(pmi- 

>noVertices*3)+l]=dispIaceobj[(((ELEMENT_P+elemindex)->B[i+adj])*3)-i-l]; 

displaceobj[(pmi- 

>noVertices*3)+2]=displaceobj[(((ELEMENT_P+elemindex)->B[i+adj])*3)+2]; 

elearray[(elemindex*5)+(i+l)]=pmi->noVertices; 


pmi - >no V erti ces++ ; 

} 

} 

adj=0; 

cused3+=3; 

} 

return 1; 

} 

yy* ****************************************** ************* ****** *********yy 
//Function: di_output_mods 

yy**** ******************* ************************* ***********************// 


int di_output_mods() 

{ 

int elemindex; 

int adj=0; 

float32 outtmp; 

int i,j,k; 

uint32 *tracknode; 

dmPoint beam 1 ,beam2 ; 

dm Vector beamvect; 
float32 beamdist; 

outvert=(float32 *)malloc(pmi->noVertices*sizeof(float32)); 
tracknode=(uint32 *)calloc(NODE_NUM,sizeof(uint32)); 

pmi->noVertices=NODE_NUM ; 

for (elemindex =0;elemindex<EL£MENT_NUM;elemindex-H-) 

{ 

if((ELEMENT_P+e!emindex)->A==2) 

{ 

dmPointSet (beaml, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->x, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->y, 

(NODE_P+((ELEMENT_P+elemindex))->B[0])->z); 

dmPointSet (beam2, 

(NODE_P+((ELEMENT_P+elemindex))->B[ l ] )->x, 
(NODE_P+((ELEMENT_P+elemindex))->B[ 1 ])->y, 
(NODE_P+((ELEMENT_P+elemindex))->B[ 1 ])->z); 

dmPointSub (beamvect, beaml, beam2); 

beamdist=sqrt((beamvect[0]*beamvect[0])+(beamvect[l]*beamvect[l])+(beamvect[2]*beamvect[2])); 

if (beamdist > .000000001) 

{ 
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elearray[elemindex # 5]=((ELEMENT_P+elemindex)->A)+2; 

for (i=0; i<2; i++) 


if (i==0) 


j=0;k=l; 


else 

{ 

j=3;k=2; 

} 


if ({racknode[((ELEMENT_P+elemindex)->B[i3)]!=l) 

{ 

tracknode[((ELEMENT_P+elemindex)->B [i])]=l ; 


outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i]))->output_ 

>outsubnuml; 

>vcolour[0] ; 

>vcolour[l]; 

>vcolour[2]; 

>B[i])*7)+6]=max(0.0,min( 1 .0, floats ->transp)); 

} 

else 

{ 

outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i]))->output. 
>outsubnum]; 


>transp)); 

} 


if(switches->outtypenum==0) 
data[switches->outsubnum] ; 

else outtmp=(ELEMENT_P+elemindex)->C[switches- 

floats->curout=outtmp; 

di_add_vertex_co!or(); 

vertices[(((ELEMENT_P+elemindex)->B[i])*7)+3]=vcfloats 
vertices[(((ELEMENT_P+elemindex)->B[i])*7)-f4)=vcfloats 
vertices[(((ELEMENT_P+elemindex)->B[i])*7)+5]=vcfloats 
vertices [(((ELEMENT_P+elemindex)« 

outvert[((ELEMENT_P+elemindex)->B[i])]=floats->curout; 


if(switches->outtypenum==0) 
_data[switches->outsubnum] ; 
else outtmp=(EL£MENT_P+elemindex)->C[switches- 

floats->curout=outtmp; 
di_add_vertex_color() ; 

vertices[(pmi->noVertices*7)+3]=vcfloats->vcolour[0]; 
vertices[(pmio>noVertices*7)+4]=vcfloats->vcolour[l]; 
vertices[(pmi->noVertices*7)+5]=vcfloats->vcolour[2]; 
vertices[(pmi->noVertices*7)+63=max(0.0,min( 1 .0,floats 


outvert[pmi->noVertices]=floats->curout; 

pmi->noVertices++; 


if(switches->outtypenum==0) 

outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i]))->output_data[switches->outsubnum]; 

else outtmp=(ELEMENT_P-^elemindex)->C[switches->outsubnum] ; 
floats->curout=outtmp; 

di_add_vertex_color(); 


vertices[((pmi->noVertices)*7)+3]=vcfloats->vcolour[0]; 
vertices[((pmi->noVertices)*7)+4]=vcfloats->vcolour[ 1 ] ; 
vertices[((pmio»noVertices)*7)+5]=vcfloats->vcolour[2]; 
vertices[((pmi->noVertices) :> 7)-»-6]=max(0.0,min( 1 0,floats->transp)); 


outvert[pmi->noVertices]=floats->curout; 


} 


pmi->noVertices++; 
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) 


//If element type is 4 nodes, 

if((ELEMENT_P+elemindex)->A==4) 

{ 

elearray[elemindex*5]=(ELEMENT„P+elemindex)->A; 


for (i=0; i<4; i++) 

{ 

if (tracknode[((ELEMENT_P+elemindex)->B[i])]!-l) 

{ 

tracknode[((ELEMENT_P+elemindex)->B[i])]=l; 


if(switches->outtypenum==0) 

outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i]))->output_data[switches->outsubnum]; 

else outtmp=(ELEMENT_P+elemindex)->C[switches->outsubnum] ; 

floats->curout=outtmp; 

di_add_vertex_co!or(); 

vertices [(((ELEMENT_P+elemindex)->B[i])*7)+3]=vcfloats->vcolour[0]; 
vertices[(((ELEMENT_P+elemindex)->B[i])*7)+4]=vcfloats->vcolour[l]; 
vertices[(((ELEMENT_P+elemindex)->B[i])*7)+5]=vcfloats->vcolour[2]; 
vertices[(((ELEMENT_P+elemindex)->B[i])*7)+b]=max{0.0,min(1.0,floats- 

>transp)); 


outvert[((ELEMENT_P+elemindex)->B(i])]=floats*>curout; 


else 

{ 

if(switches->outtypenum=0) 

outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i]))->output_data[switches->outsubnum]; 

else outtmp=(ELEMENT_P+elemindex)->C[switches->outsubnum] ; 

floats->curout=outtmp; 

di_add_vertex_color(); 

vertices[((pmi->noVertices)*7)+3]=vcfloats->vcolour[0]; 
vertices[((pmi*>noVertices)*7)+4]=vcfloats->vcolour[l]; 
vertices[((pmi->noVertices)*7)+5]=vcfloats->vcolour[2]; 
vertices[((pmi->noVertices)*7)+6]=max(0.0,niin( 1 .0, floats ->transp)); 

outvert[pmi->noVertices]=floats->curout; 


} 


} 


} 


pmi->noVertices++; 


//If element type is 3 nodes, 
if((ELEMENT_P-^elemindex)->A==3) 

{ 

for (i=0; i<3; i++) 

{ 

if ((ELEMENT_P+elemindex)->B[i]=- 1 ) adj=l ; 

if (tracknode[((ELEMENT_P+elemindex)->B[i+adj})]!=l) 

{ 

tracknode[((ELEMENT_P+elemindex)->B[i+adj])]=l ; 


if(switches->outtypenum==0) 

outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i+adj]))->output_data[switches->outsubnum]; 

else outtmp=(ELEMENT_P+elemindex)->C[switches->outsubnum] ; 

floats ->curout=outtmp; 

di_add_vertex_color(); 


>vcolour[0]; 

>vcolour[l]; 

>vcolour[2]; 


vertices[(((ELEMENT_P+elernindex)->B[i+adj])*7)+3]=vcfloats- 

vertices[(((ELEMENT_P+elemindex)->B[i+adj])*7)+4]=vcfloats- 

vertices[(((ELEMENT_P+elemindex)->B[i+adj])*7)+5]=vcfloats- 
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vertices[(((ELEMENT_P+elemindex)- 

>B[i+adj])*7)+6]=max(0.0,min(1.0,floats->transp)); 

outvert[((ELEMENT_P+elemindex)->B[i+adj])J=floats->curout; 

} 

else 

{ 

if(switches->outtypenum==0) 

outtmp=(NODE_P+((ELEMENT_P+elemindex)->B[i+adj]))->output_data[switches->outsubnum]; 

else outtmp=(ELEMENT_P-Helemindex)->C[switches->outsubnum]; 

floats->curout=outtmp; 

di_add_vertex_color() ; 

vertices[((pmi->noVertices)*7)+3]=vcfloats->vcolour[0]; 
vertice$[((pmi->noVertices)*7)+4]=vcfloats->vcolour[l]; 
vertices[((pmi->noVertices)*7)+5}=vcfloats->vcolour[2]; 
vertices[((pmi->noVertices)*7)+6]=max(0.0,min( 1 .0, floats ->transp)); 

outvert[pmi->noVertices]=floats->curout; 

pmi->noVertices++; 


} 

adj=0; 

} 

) 

return 1; 

} 

^************** *********************** **********************************// 
// Function: di_Pmesh_obj 

//***«** ***************************************** ************************// 
int 

di_Pmesh_obj(ECObject *object) 

i 

dmPoint reference = { O.Of, O.Of, O.Of }; 

VCDynamicVisual *vc_vis; 

VCLod *vc_lod; 

VCGeogroup *vc_ggrp; 

VCConnectionData cdata[2]; 

VCConnectionList *vc_clist; 
char *mstr; 

int len; 

VCMaterial * material; 

ECVisual *visual; 

VCAttribute *attribute; 

ECZone *zone; 

VCEntity *entity; 


char *objectname; 

VCColor ambient={0.7, 0.5, 0.45}; 

VCColor diffuse={0.7, 0.5, 0.45}; 

VCColor emmisive={0.0,0.0,0.0}; 

VCColor opacity={0.5,0.5,0.5}; 

VCSpecular specular={0.1, 0.1, 0.0, 0.0}; 

VC Geometry *vc_geom; 


objectname=ECObjectGetName(object);//object and objectname is objFEM) 


l=VCMaterial_Create (mstr. 

// Name 

VC_MATER1AL_ENABLE, 

Mode 

ambient. 

Ambient 

diffuse. 

Diffuse 



// 

ft 

ft 
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specular. 

// 

Specular 

emmisive. 

// 

Emmisive 

opacity. 

// 

Opacity 

NULL, 


// Texture 

NULL, 


// Ramp 

NULL); 


H Env. Map 




if (!material) printf( "Failed to create material objMatNn"); 

/* Create dynamic visual */ 

vc_vis = VCDynamicVisual_Create(objectname, 0); 

/* Create lod */ 

vcjod = VCDynamicVisual_AddLod(vcjvis,’’#r, 0.0, -1, reference); 

/* Create geogroup */ 

vc_ggrp = VCLod_AddGeogroup(vc_lod, VC_VERTEX_RGBA, 

0,0,VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRAWMODE_SOLID,0,"objMatVobjMat"); 

// vc_ggrp = VCLod_AddGeogroup(vc_lod, VC_VERTEX_RGBA, 

0,0,VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRAWMODE_WIREFRAME,0,'’objMat'\ "objMat”); 

cdata[0].type=VC_CONNECTIONLIST ; 
cdata[0].faceCount=4; 

cdata[0] .noConnections=pmi ->noFaces4; 
cdata[0] ,data=connections4; 

cdata[ 1 }.type= VC_CONNECTIONLIST ; 
cdata [ 1 ] . fac eCount=3 ; 

cdata[ 1 ].noConnections=pmi->noFaces3; 
cdata[ 1 ] .data=connections3 ; 


vc_geom = VCPmesh_Create(VC_VERTEX_RGBA, pmi->noVertices, vertices, 2, cdata); 
if(vc_geom != NULL) 

VCGeogroup_AttachGeometry{vc_ggrp,vc_geom); 

entity = ECObjectGetVCEntity(object); 

visual = ECObjectGetVisual(object, NULL); 

if (visual == NULL) 

{ 

VCJErrorC’ visual was NULL\n n ); 
retum(ECKeepAction); 

} 

attribute = ECVisualGetVCAttribute(visual); 

VCVisual_SetDynamicVisual(attribute,vc_vis); 

// ECVisualSetVCAttribute(visual,attribute); 

// Dryer switched ECVisualSetVCAttribute(vis,att) to ECVisualToVC (obj, vis) below: 

ECVisualToVC (object, visual); 

// ECVisualToVC flushes the information in the ECVisual structure to the dVS database via the VC Attribute 

// referenced in the data structure. If there is no VC attribute assigned to this ECVisual then a VCAttribute(5) is 

// created and assigned to the VCEntity(5) referenced by the ECObject(5). 

// format: int ECVisualToVC (ECObject *o, ECVisual *o); 


ECObjectToVC(object); 
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retum(ECKeepAction); 


J 

yy* *******************#*******************♦******************************// 

// Function: diCreateFEMObjectFunc - function creates the model in the 3d 
// space. 

yy***** ************************** ****** ********** ***************** *******yy 

int 

diCreateFEMObjectFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void **args = action->parameters; 

ECObject *obj; 

char *varNameFactor; /* Modification factor */ 

char *varFactor; ^Modification factor *f 

int i; 

if(ECArgReferenceGetValue(args[2], (void *)&floats->scale, &data.focus) = VC_ERR) 
floats->scale = 1 .00; 

di_det_blocks(); 

di_input_nodes(); 

di_set_range(); 

di_input_mods(); 

di_output_mods(); 

objFEMref = (ECObjectReference *)args[l); 

objFEM = ECReferenceObject(objFEMref, &data.focus); 
if(objFEM == NULL) 

{ 

VC_Error( "Could not find object\n">; 
retum(ECKeepAction); 

} 


di_Pmesh_obj(objFEM); 

//printf( "di_Pmesh_obj () completed" ) ; 

di_modify_FEM(); 

//printf( M di_modify_FEM() completed"); 


yy* ************ ****** ** ******* ****** ****** ******* **** ********************// 

// Function: di_modify_FEM - updates the FEM object after changes. 

yy********** ********* *********************************** *****************yy 

int di_modify_FEM(void) 

{ 


ECVisuaJ *visual; 

VCAttribute *attr; 

VCEntity ♦entity; 

VCDynamicVisual *dyn_vis; 

VCLod *dyn_lod; 

VCGeogroup *dyn_^geogrp; 

VCGeometry *dyn_geom; 

VCVertex_Reference ref; 
int stat; 

VCDynamicVisual_Traverse traverse 1 ; 

VCLod_Traverse traverse2; 

VCGeogroup_Tra verse traverse3; 

int i,index; 

dmPoint curvertpos; 

char *varNameFactor; /^Modification factor */ 

char *varFactor; ^Modification factor */ 
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if(objFEM == NULL) 

l 

VC_Error(" Could not find objectVf); 
retum(ECKeep Action); 

I 

entity = ECObjectGetVCEntity(objFEM); 
identity == NULL) 

{ 

VC_Error( ’’Could not find entity\n M ); 
retum(EC Keep Action); 

) 

visual = ECObjectGetVisual(objFEM, NULL); 
if( visual = NULL) 

{ 

VC_Error( M Could not find visual\n"); 
retum(EC Keep Action); 

} 

attr = ECVisualGetVCAttribute(visual); 

ECObjectToVC(objFEM); 

VCVisual_GetDynamicVisual(attr,&dyn_vis); 

if(dyn_vis = NULL) 

{ 

VC_Error(" Could not find dynamic visual\n"); 
retum(ECKeepAction); 

} 

dynjod = VCDynamicVisual_GetFirstLod(dyn_vis, &traversel); 

dyn^geogrp = VCLod_GetFirstGeogroup(dyn_lod,VC_VERTEX_RGBA,&traverse2); 
dyn_geom = VCGeogroup_GetFirstGeometry(dyn_geogrp,VC_PMESH,&traverse3); 


i=0;index=0; 

stat = VCGeometry_GetFirstVertex(dyn_geom,&ref); 
while (stat == VC_OK) 

curvertpos[0]=vertices[index]+displaceobj[(i*3)+0]*floats->LoadFactor*floats->exager; 

curvertpos[l]=vertices[index+l]+displaceobj[(i*3)+l]*floats->LoadFactor^fioats->exager; 

curvertpos[2]=vertices[index+2]-i-displaceobj[(i*3)+2]*floats->LoadFactor*floats->exager; 

floats->curout=outvert[i]*floats->LoadFactor; 

di_add_vertex_color(); 

ref.data[0]=curvertpos[0] ; 
ref.data[ 1 ]=curvertpos[ 1 ] ; 
ref.data[2]=curvertpos[2]; 
ref.data[3]=min( 1 .0, vcfloats->vcolour[0] ); 
ref.data[4]=min( 1 .0,vcfloats->vcolour[ 1 ]); 
ref.data[5]=min( 1 .0,vcfioats->vcolour[2]); 
ref.data[6]=max(0.0,min( 1 .O t floats->transp)); 
stat = VCGeometry_GetNextVertex(&reO; 
i++; 

index+=7; 

} 

VCGeometry_Flush(dyn_geom); 

} 

^* ************************************************************ **********// 

// Function: di_Pmesh_mesh 

^** **************************************************************** *****// 
int 

di_Pmesh_mesh(ECObject *object) 
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dmPoint reference = { O.Of, O.Of, O.Of }; 

VCDynamicVisual *vc_vis; 

VCLod *vc_tod; 

VCGeogroup *vc„ggrp; 

VCConnectionData cdata[2]; 

VCConnectionList *vc_clist; 
char *mstr; 

int len; 

VCMaterial * material; 

ECVisual *visual; 

VCAttribute *attribute; 

ECZone *zone; 

VCEntity ^entity; 

char *objectname; 

VCColor emmisive={0.5,0.5,0.5};//gray 

VCColour white={ 1,1,1 } ,black= { 0,0,0 } ; 

VCGeometry *vc _geom; 

objectname=ECObjectGetName(object);//object and objectname is objMesh) 

mstr=dStringFromOptions(NULL, &len, "meshMat", DS_END_OF_OPTIONS); 
materiaI=VCMaterial_Create (mstr, M 

Mode 

// Ambient 

Diffuse 

Specular 

Emmisive 

Opacity 

// Texture 

// Ramp 

// Env. Map 


Name 

VC_MATERIAL_ENABLE, // 


black, 

black, // 

black, // 

emmisive, // 

white, // 

NULL, 

NULL, 

NULL); 


if (!material) printfCTailed to create material ’meshMat \n"); 


/* Create dynamic visual */ 

vc_vis = VCDynamicVisual_Create(objectname, 0); 


/* Create lod */ 

vc_lod = VCDynamicVisual_AddLod(vc_vis,"#r\ 0.0, -1, reference); 


/* Create geogroup */ 

vc_ggrp = VCLod_AddGeogroup(vc_lod, VC_VERTEX_XYZ, 

0,0,VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRAWMODE_SOLID,0,"meshMat", "meshMat"); 

// vc_ggrp = VCLod_AddGeogroup(vc_lod, VC_VERTEX_RGBA, 

// 

0,0 VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRAWMODE_WIREFRAME,0,"meshMat", "meshMat"); 


cdata[0].type=VC_CONNECTIONLIST; 
cdata[0] .faceCount=4; 

cdata[0].noConnections=pmi->noFaces4; 
cdata[0] .data=conmesh4; 

cdataf 1 ] .type=VC_CONNECTIONLIST ; 
cdata[ 1 ] . faceCount=3; 

cdata[ 1 ] .noConnections=pmi->noFaces3 ; 
cdata[ 1 ] ,data=conmesh3 ; 


vc_geom = VCPmesh_Create(VCJVERTEX_XYZ, pmi->noVertmesh, vertmesh. 2, cdata); 
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if(vc_geom != NULL) 

VCGeogroup„AttachGeometry(vc_ggrp,vc_geom); 

entity = ECObjectGetVCEntity (object); 

visual = ECObjectGetVisual(object, NULL); 

if (visual == NULL) 

{ 

VC_Error( "visual was NULL\n"); 
retum(ECKeepAction); 

} 


attribute = EC VisualGetVCAttribute( visual); 

VCVisuaLSetDynamicVisual(attribute,vc_vis); 

// ECVisualSetVCAttribute( visual, attribute); 

// Dryer switched ECVisualSetVCAttribute(vis,att) to ECVisualToVC (obj, vis) below: 

ECVisualToVC (object, visual); 

// ECVisualToVC flushes the information in the EC Visual structure to the dVS database via the VC Attribute 

// referenced in the data structure. If there is no VC attribute assigned to this ECVisual then a VC Attribute^) is 

// created and assigned to the VCEntity(5) referenced by the ECObject(5). 

// format: int ECVisualToVC (ECObject *o, ECVisual *o); 

ECObjectToVC(object); 

retum(ECKeepAction); 

} 

//********** ************************************** ***********************// 

// Function: diCreateFEMMeshFunc 

//******** ** ************************************************* ************// 


int 

diCreateFEMMeshFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

ECObject *obj; 

char *varNameFactor; /* Modification factor */ 

char *varFactor; l * Modification factor */ 

int i; 

if(ECArgReferenceGetValue(args[2], (void *)&floats->scale, &data.focus) = VC_ERR) 
floats->scale = 1.00; 

objMeshref = (ECObjectReference *)args[l]; 

objMesh = ECReferenceObject(objMeshref, &data. focus); 

if(objMesh = NULL) 

{ 

VC_Error( "Could not find object\n"); 
retum(ECKeepAction); 

} 

di_Pmesh_mesh(objMesh); 

if (switches->meshdynmode==l) di_modify_Mesh(); 

} 

/y******************* ****************************************** **********// 

// Function: di_modify_Mesh - updates mesh after a changed has occured. 

//******* ******************************** ************ ^***** ******* *****♦*// 


int di_modify_Mesh(void) 

{ 


ECVisual * visual ; 
VCAttribute *attr; 

VCEntity *entity; 

VCDynamicVisual *dyn_vis; 
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VCLod *dyn_lod; 

VCGeogroup *dyn_geogrp; 

VCGeometry *dyn_geom; 

VCVertex_Reference ref; 
int stat; 

VCDynamicVisual_Traverse traverse 1 ; 

VCLod_Traverse traverse2; 

VCGeogroup_Traverse traverse3; 
int i,index; 

dmPoint curvertpos; 

char *varNameFactor; /* Modification factor */ 

char *varFactor; /^Modification factor */ 


if(objMesh == NULL) 

{ 

VC_Error("Could not find object\n M ); 
retum(ECKeepAction); 

} 

entity = ECObjectGetVCEntity(objMesh); 
identity == NULL) 

{ 

VC_Error(" Could not find entity\n"); 
retum(ECKeepAction); 

} 

visual = ECObjectGetVisual(objMesh, NULL); 
if(visual = NULL) 

{ 

VC_Error(" Could not find visual\n M ); 
retum(ECKeepAction) ; 

} 

attr = ECVisualGetVCAttribute( visual); 

ECObjectToVC(objMesh); 

VCVisual_GetDynamicVisual(attr,&dyn_vis); 

if(dyn_vis = NULL) 

{ 

VC_Error( "Could not find dynamic visual\n"); 
retum(EC Keep Action); 

} 

dynjod = VCDynamic Visual J3etFirstLod(dyn_vis, &traversel); 

dyn_geogrp = VCLod_GetFirstGeogroup(dyn_lod,VC_VERTEX_XYZ,&traverse2); 
dyn_geom = VCGeogroup_GetFirstGeometry(dyn_geogrp,VC_PMESH,&traverse3); 


i=0;index=0; 

stat = VCGeometry_GetFirstVertex(dyn_geom,&ref); 
while (stat = VC_OK) 

curvertpos[0]=vertmesh[index]+displacemesh[(i*3)+0]*floats->LoadFactor*floats->exager; 

curvertpos[l]=vertmesh[index+l]+displacemesh[(i*3Hl]*floats*>LoadFactor*floats->exager; 

curvertpos[2]=vertmesh[index+2]+displacemesh[(i*3)+2]*floats->LoadFactor*floats->exager; 

floats->curout=outvert[i]*floats->LoadFactor; 

di_add_vertex_color(); 

ref.data[0]=curvertpos[0] ; 
ref.data[ 1 ]=curvertpos[ 1]; 
ref.data[2]=curvertpos[2]; 
stat = VCGeometry_GetNextVertex(&ref); 

i++; 

index+=3; 

) 
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VCGeometry_Flush(dyn _geom); 

) 

yy******* ****** * * * * * ********************************* ******************* *yy 
// Function: diCreateFEMTextFunc 

yy********** *************************************************** ***♦**♦***// 

int 

diCreateFEMTextFunc(ECEvent *event, ECEventData data, ECAction ^action) 

( 

void **args = action->parameters; 

ECObject *object; 

ECObjectReference *ref; 

dmPoint reference = ( O.Of, O.Of, O.Of }; 

VCDynamicVisual *vc_vistext; 

VCLod *vc_lodtext; 

VCGeogroup *vc_ggrptext; 
int32 text_len=200; 

VCEntity *text_ent = NULL; 

char *mstr; 

int len; 

VCMaterial * material; 

ECVisual *visual; 

VCAttribute * attribute; 

char *textstrmg= H No Selection'*; 

VCColour white={ 1,1,1 }, black={0, 0,0 },blue= {0,0,1 }; 

dmScale s= { 0.005 , 0.007, 0.007 } ; 

objFEMTextref = (ECObjectReference *)args[l]; 

objFEMText = ECReferenceObject(objFEMTextref, &data.focus); 

mstr=dStringFromOptions(NULL, &len, "blue", DS_END_OF_OPTIONS); 
material=VCMaterial_Create(mstr, VC_MATER1AL_ENABLE, black, black, black, blue, 

white, NULL, NULL, NULL); 

if (Imaterial) printf("Text: Failed to create material blue emmissive\n M ); 
text_ent=VCEntity_Create(NULL, 0); 
vc_vistext=VCDynamicVisual_Create("text_ent", 0); 

vcjodtext = VCDynamicVisual_AddLod(vc_vistext,"#r, 0.0, -1, reference); 

vc_ggrptext = VCLod_AddGeogroup( vcjodtext, VC_VERTEX_XYZ, 

0,0, 0,0,0, "blue”, "blue"); 

femtextstring=VCString_CreateSized(textstring, textjen, 0, NULL, NULL, s); 

VCGeogroup_AttachString(vc _ggrptext, femtextstring); 

visual = ECObjectGetVisual(objFEMText, NULL); 
if (visual == NULL) 

{ 

VC_ErrorCvisual was NULL\n’*); 
retum(ECKeepAction); 

} 

attribute = EC VisualGet VC Attribute( visual); 

VC Vi s ual_SetDynamic Vi sual ( attri b ute , vc_v i stext); 

ECVisualToVC (objFEMText, visual); 

ECObjectTo VC(objFEMText) ; 
retum(ECKeepAction) ; 

} 

yy****** ********************************** *******************************// 

// Function: diCreateClrSclTextFunc 

yy* *********************************************************** ***********// 


int 

diCreateClrSclTextFunc(ECEvent ♦event, ECEventData data, ECAction *action) 
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{ 

void **args = action->parameters; 

ECObject ^object, 

ECObjectReference *ref; 

dmPoint reference = { O.Of, O.Of, O.Of }; 

VCDynamicVisual *vc_vistext; 

VCLod *vcJodtext; 

VCGeogroup *vc_ggrptext; 
int32 text_len=200; 

VCEntity *clrscltext_ent = NULL; 

char *mstr; 

int len; 

VCMaterial *material; 

ECVisual *visual; 

VCAttribute *attribute; 

char *clrecltextstr="clrscltextstr" ; 

VCColour white= {1,1,1} ,black={ 0,0,0 } ,blue= { 0,0, 1 } ; 
dmPoint p={-0.02, 0.345, -0.01 }; 

dmScale s={0.013, 0.030, 0.01 }; 

// dmScale s={0.013, 0.029, 0.01 }; 

objClrSclTextref = (ECObjectReference *)args[l]; 

objClrSclText = ECReferenceObject(objClrSclTextref, &data. focus); 

mstr=dStringFromOptions(NULL, &len, ’’blue", DS_END_OF_OPTIONS); 
material=VCMaterial_Create(mstr, VC_MATERIAL_ENABLE, black, black, black, blue, 

white, NULL, NULL, NULL); 

if (!material) printf("Text: Failed to create material blue emmissive\n"); 

c 1 rs c 1 tex t_ent= V CEn ti ty_C reate( NULL, 0) ; 

vc_vistext=VCDynamicVisual_Create("clrscltext_ent", 0); 

vcjodtext = VCDynamicVisuaLAddLod(vc_vistext, n #r, 0.0, -1, reference); 

vc_ggrptext = VCLod_AddGeogroup(vc_lodtext,VC_VERTEX_XYZ, 
0,0,0,0,0,"blue’’, "blue”); 

clrscltextstring=VCString__CreateSized(clrscltextstr, text_len, 0, p, NULL, s); 
di_updateclrscltxt(); 

VCGeogroup_AttachString(vc_ggrptext, clrscltextstring); 

visual = ECObjectGetVisual(objClrSclText, NULL); 
if (visual == NULL) 

{ 

VC_Error(’’ visual was NULL\n M ); 
retum(ECKeepAction); 

} 

attribute = ECVisualGetVCAttribute( visual); 
VCVisual_SetDynamicVisual(attribute,vc_vistext); 

ECVisualToVC (objClrSclText, visual); 

ECObjectToVC(objClrSclText); 
retum(ECKeep Action) ; 


II * * ** *************************************** ***** ****** ****** ****** *#***y/ 

// Function: di_updateclrscltxt 

yy**** **************** ******** *********************** ************ *** + *♦**// 


int di_updateclrscltxt() 

sprintf(chars->scltxt,"%10.6f\n\n %10.6f\n %10.6f\n %10.6f\n %10.6f\n %10.6f\n %10.6f\n %10.6f\n %10.6f\n 
%10.6f\n %10.6f\n %10.6f\n\n%10.6f\ 

floats->out__vals[2], 

floats->out_min+(1.0*(floats->out_max-floats->out_min)), 

floats->out_min+(0.9*(floats->out_rnax-floats->out_jnin)), 

floats->out_min+(0.8*(floats->out_max-floats->out_rnin)), 
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floats->out_rnin+(0.7*(floats->out_max-floats->out_min)), 
floats->out_min-i-(0.6*(floats->out_max-floais->out_min)), 
floats->out_min+(0.5*(floats->out_max-floats->out_min)), 
floats->out_min+(0.4*(floats->out_max-floats->out_min)), 
floats>out_min+(0.3*(floats->out_max-floats->out_min)), 
floats->out_min+(0 . 2 * (floats->out_max -floats->out_min )), 
floats->out_min+(0. 1 *(floats->out_max-floats->out_min)), 
f!oats->out_min+(0.0*(floatso>out_max-floats->out_min)), 
floats->out_vals[0]); 

VCString_SetText(clrscltextstring,chars->scltxt); 

} 

H ******************************************* *** ************* ****** ****** u 

// Function: diCreateColorSclFunc 

^****** ************************** ************* ********* ******* **********// 


int 

diCreateColorSclFunc(ECEvent *event, ECEventData data, EC Action * action) 

{ 

void **args = action->parameters; 

ECObject * object; 

ECObjectReference *ref; 

dmPoint reference = { O.Of, O.Of, O.Of }; 

VCDynamicVisuat *vc_vis; 

VCLod *vc_lod; 

VCGeogroup *vc_ggrp; 

VCConnectionData cdata[ 1 ] ; 

VCConnectionList *vc_clist; 
char *mstr; 

int ten; 

VCMaterial *material; 

ECVisual * visual; 

VCAttribute ^attribute; 

ECZone *zone; 

VCEntity *femscl_ent = NULL; 

VCColor ambient={ 0.7, 0.5, 0.45}; 


VCColor 
VCColor 
VCColor 
VCSpecular 
VCGeometry 
int i; 

float32 
float32 

dmScale s={0.85, 1.038, 1.00}; 


diffuse={0.7, 0.5, 0.45}; 
emmisive={ 0.0,0. 0,0.0 } ; 
opacity={0.5,0.5,0.5}; 

specular={0. 1, 0.1, 0.0, 0.0}; 
*vc_geom; 


clevel,dlevel,zerolevel; 

posmincolormod,negmincolormod; 


femsclverts=(float32 *)malloc((24*7)*sizeof(fioat32)); 
femsclconts=(uint32 *)malloc((6*4)*sizeof(uint32)); 

objClrSclref = (ECObjectReference *)args[l]; 
objClrScl = ECReferenceObject(objClrSclref, &data.focus); 


l=VCMaterial_Crcate (mstr. 

// Name 

VC_M ATER I AL_EN AB LE, 

// 

Mode 

ambient, 

// 

Ambient 

diffuse. 

// 

Diffuse 

specular. 

// 

Specular 

emmisive, 

// 

Emmisive 

opacity. 

// 

Opacity 

NULL, 


ll Texture 

NULL, 



Ramp 
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NULL); 

// Env. Map 

if ({material) printf("Text: Failed to create material TemsclMatVi”); 

femscl_ent=VCEntity_Create(NULL > 0); 

/* Create dynamic visual */ 
vc_vis = VCDynamicVisual_Create("femscl_ent", 0); 

// Create lod 

vc_lod = VCDynamicVisual_AddLod(vc_vis,"#r, 0.0, -1, reference); 

// Create geogroup 

vc_ggrp = VCLod_AddGeogroup(vc_lod, VC_VERTEX_RGBA, 

0,Q 1 VC_GE(X}ROUP_L(X^K_OFF,VC_GEOGROUP_DRAWMODE_SOLID,0, M femsclMat’Y , femsclMat"); 


// Set geometry 

femsclverts[(0*7)+0]=floats->femsclbotl[0]; 
femsclverts[(0*7)+ 1 ]=floats->femsclbotl[ 1 ] j ( level a 
femsclverts[(0*7)+2]=floats->femsclbotl[2]; 

femsclverts[( 1 *7)+0]=floats->femsclbotr[0] ; 
femscl verts[( 1 *7)+ 1 ]=floats->femsclbotr[ 1 ] y/level a 
femsclverts[( 1 *7)+2]=floats->femsclbotr[2] ; 

fe msc 1 verts [{2*1 )+0] = fl oats->femscltopr[0] ; 

femsclverts[(2*7)+l]=f]oats->femscltopr[i]*floats->clrsclbot;//level b 
femsclverts[(2*7)+2]=floats->femscltopr[2J; 

femsclverts[(3*7)+0]=floats->femscltopl[0]; 

femsclverts[(3*7)+l ]=floats->femscltopl[ 1 ] *floats->clrsclbot;//level b 
femsclverts((3*7)+2j=floats~>femscltopl[2]; 

for (i=0;i<4;i++) 

{ 

femscl verts[(i*7)+3]=vcfloats->outofmgcolor[0]; 
femsclverts[(i*7)+4]=vcfloats->outofmgcolor[ 1 ] ; 
femscl verts [(i*7)+5]=vcfloats->outofrngcolor[ 2]; 
femsclverts[(i*7)+6]=floats->alphaoutrng; 

} 

femscl verts [(4*7 )+0]=floats->femscltopl[0]; 

femsclverts[(4*7)+l]=floats->femscltopl[l]*floats->clrsclbot;//level b 
femsclverts[(4*7)+2]=floats->femscltopl[2]; 

femscl verts[(5*7)40]=floats->femscltopr[0]; 

femsclverts[(5*7)+l]=floats->femscltopr[l]*floats->clrsclbot;//level b 
femsclverts[(5*7)+2]=floats->femscltopr[2]; 

for (i=4;i<6;i++) 

{ 

femsc!verts[(i*7)+3]=vcfloats->negmaxcolor[0]; 

femsclverts[(i*7)+4]=vcfloats->negmaxcolor[l]; 

femsclverts[(i*7)+5]=vcfloats->negmaxcolor[2]; 

femsclverts[(i*7)+6]=floats->alphainrng-.2; 

} 


if (floats->out_vals[2]<=0.0)//case 3 

{ 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

clevel=max(min(LO-floats->threshold,floats->clrscltop),floats->clrsclbot); 
//below (commented out) gives a relative threshold percentage of color range 

// clevel=floats>clrscltop-(floats->threshold*(floats->clrscltop-floats->clrsclbot)); 

zerolevel=floats->clrscltop; 

dlevel=floats->clrscltop; 

negmincolormod=(floats->clrscltop-clevel)/(floats->clrscltop-floats->clrsclbot); 

posmincolormod=0.0; 

} 
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else if (floats->out_vals[0]>=0.0)//case 2 

{ 

clevel=floats->clrsclbot; 
zerolevel=floats->clrsclbot ; 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

dlevel=min(max(floats->threshold,floats->clrsclbot),floats->clrscltop); 

//below (commented out) gives a relative threshold percentage of color range 

// dlevel=floats->clrsclbot+(floats->threshold*(floats->clrscltop-floats->clrsclbot)); 

negmincolormod=0.0; 

posmincolormod=(dlevelfloats->clrsclbot)/(floats->clrscltop-floats->clrsclbot); 

1 

else//case 1 

( 

zerolevel=fabs(floats->out_min)/(floats->out_max-floats->out_mm); 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

clevel=min(max((zerolevel-(floats->threshold*max(zerolevel,1.0-zerolevel))),floats- 

>clrsclbot).zerolevel); 

dlevel=max(min((zerolevel+(floats->threshold*max(zerolevel,1.0-zerolevel))),floats- 

>cIrscltop),zerolevel); 

//below (commented out) gives a relative threshold percentage of color range 

// clevel=zerolevel-(floats->threshold*(zerolevel-floats->clrsclbot)); 

// dlevel=zerolevel+(floats->thieshold*(floats->clrscltop-zerolevel)); 

negmincolormod=(zerolevel-clevel)/(zerolevel-floats->clrsclbot); 

posmincolormod=(dlevel-zerolevel)/(floats->clrscltop-zerolevel); 

1 


femsclverts[(6*7)+0]=floats->femscltopr[0]; 
femsclverts[(6*7)+l]=floats->femsc!topr[ 1 J*clevel;//level c 
femsclverts[(6*7)+2]=floatS'>femscltopr[2]; 

femsclverts[(7*7)+0]=floats->femscltopl[0]; 
femsclverts[(7*7)+l]=floats->femscltopl[l]*clevel;//level c 
femsclverts[(7*7)+2]=floats->femscltopl[2]; 


for (i=6;i<8;i++) 

{ 

femsclverts[(i*7)+3]=vcfloats->negmincolor[0]+ 


>negmincolor[OJ); 


femscl verts [(i * 7 ) 44 ]=vcfloats->negmincolor[ 1 ]+ 


>negmincolor[l]); 


femsclverts[(i*7)+5]=vcfloats->negmincolor[2]+ 


>negmincolor[2]); 


femsclverts[(i*7)+6]=floats->alphainrng-.2; 


negmincolormod* 

(vcfloats->negmaxcolor[0]-vcfloats- 


negmincolormod* 

(vcfloats->negmaxcolor[ 1 ] -vcfloats- 


negmincolormod* 

(vcfloats->negmaxcolor[2]-vcfloats- 


femsclverts[(8*7)+0]=floats->femscltopl[0]; 

femscl verts [(8 *7)+l]=floats->femscltopl[l]*clevel;//level c 

femsclverts[(8*7)+2]=floats->femscltopl[2]; 

femsclverts[(9*7)+0]=floats->femscltopr[0]; 
femsclverts[(9*7)+ 1 ]=floats->femscltopr( 1 ] *clevel;//level c 
femsclverts[(9*7)+2]=floats->femscltopr[2]; 

femsclverts[(10*7)+0]=floats->femscltopr[0]; 

femsclverts[( 1 0*7)+ 1 ]~floats->femscltopr[ 1 ] *zerolevel;//zerolevel 

femsclverts[(l0*7)+2]=floats->femscltopr[2]; 

femscl verts[( 1 1 *7)+0]=floats->femscltopl [0] ; 

femscl verts[( 1 1 *7)+ 1 j=floats->femscltopl [ 1 ] * zerolevel ;//zeroievel 

femsclverts[(l 1 *7)+2]=floats->femscltopl[2]; 

for (i=8;i<12;i++) 

( 

femsclverts[(i*7)+3]=vcfloats->negthreshcolor[0]; 
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>posmincolor[0]); 


>posmincolor[ 1 ]); 


>posmincolor[2] ) ; 


femsclverts[(i*7)+4]=vcfloats->negthreshcolor[ 1 ]; 
femsclverts[(i*7)+5]=vcfloats->negthreshcolor[2]; 
femscl verts[(i *7)+6] =floats->alphathresh ; 

} 

femsclverts[( 1 2*7)+0]=floats->femscltopl [0] ; 

femscl verts[( 1 2*7)+ 1 ]=floats->femscltop] [ 1 j *zerolevel ;//zerolevel 

femscl verts[( 1 2*7)+2]=floats->femscttop] [2] ; 

femsclverts[( 1 3*7)+0]=floats->femscltopr[0] ; 

femsclverts[( 13*7)+ 1 ]=floats->femscltopr[ 1 ] * zerolevel ^/zeroleve! 

femsclverts[( 1 3 *7)+2]=floats->femscltopr[ 2] ; 

femsclverts[( 14*7)+0]=floats->femscltopr[0] ; 
femsclverts[(14*7)+l]=floats->femscltopr[l]*dlevel;//level d 
femsclverts[(14*7)+2]=floats->femscltopr[2]; 

femsclverts[(15*7)+0]=floats->femscltopl[0]; 
femsclverts[(15*7)+l]=floats->femscltopl[l]*dlevel;//level d 
femsclverts[( 1 5*7)+2]=floats->femscltopl[2] ; 

for (i=12;i<16;i++) 

{ 

femscl verts[(i*7)+3]=vcfloats->posthreshcolor[0]; 
ferns cl verts [(i * 7 )+4] =vc floats - >posthres hcolor [ 1 ] ; 
femsclverts[(i*7)+5]=vcfloats->posthreshcolor[2]; 
femsclverts[(i*7)+6]=floats->alphathresh; 

} 

femsclverts[(16*7)+0]=floats->femscltopl[0]; 

femsclverts[( 1 6*7)+ 1 ]=floats->femscltopl[ 1 ] *dle vel^/level d 

femsclverts[(16*7)+2]=floats->femscltopl[2]; 

femscl verts[( 1 7*7)+0]=floats->femscltoprt0] ; 

femsclverts[( 1 7*7)+l ]=floats->femscltopr[ 1 j*dlevel;//level d 

femsclverts[(17*7)+2]=floats->femscltopr[2]; 

for (i=16;i<18;i++) 

{ 

femsclverts[(i*7)+3]=vcfloats->posmincolor[0]+ 

posmincolormod* 
(vcfloats->posmaxcolor[0] -vcfloats 

femsclverts[(i*7)+4]=vcfloats->posmincolor[ 1]+ 

posmincolormod* 
(vcfloats->posmaxcolor[ 1 ] -vcfloats 

femsclverts[(i*7)+5]=vcfloats->posmincolor[2]+ 

posmincolormod* 
(vcfloats->posmaxcolor[ 2] -vcfloats 

femscl verts [ ( i * 7 )+6] =fl oats- >al p hainmg-. 2 ; 

} 

femsclverts[( 1 8*7)+0]=floats->femscltopr[0] ; 

femsclverts[( 18*7)+ 1 ]=floats->femscltopr[ 1 ] * floats->clrscltop;//level e 
femsclverts[( 1 8*7)+2]=floats->femscltopr[2]; 

femsclverts[(19*7)+0]=floats->femscltopl[0]; 

femsclverts[(19*7)+l]=floats->femscltopl[l]*floats->clrscltopy/levele 

femsclverts[(19*7)+2]=floats->femscltopi[2]; 

for (i=18;i<20;i++) 

{ 

femsclverts[(i*7)+3]=vcfloats->posmaxcolor[0); 
femsclverts[(i*7)+4]=vcfloats->posmaxcolor[ 1 ]; 
femsclverts[(i*7)+5]=vcfloats->posmaxcolor[2]; 
femsclverts[(i*7)+6]=floats->alphainrng-.2; 

} 
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femsclvern[(20*7)+0]=floats->femscltopl[0]; 

femscl verts((20*7)+ 1 ]=floats->femscltopl[ 1 ] * floats->clrscltop;//level e 
femsclverts[(20*7)+2]=floats->femscltopl[2]; 

femsclverts[(21*7)+0]=floats->femscltopr[0]; 

femscl verts[(2 1 *7)+ 1 ]=floats->femscltopr[ 1 ] * floats->clrscltop;//level e 
femsclverts[(2 1 *7)+2]=floats->femscltopr[ 2] ; 


femsctverts[(22*7)+0]=floats->femscltopr[0j; 
femsclverts[(22*7)+l]=fIoats->femscltopr[ l];//level f 
femsclverts[(22*7)+2]=floats->femscltopr[2]; 

femscl verts[(23 *7)+0]=floats->femscltopl [0] ; 
femscl verts[(23 *7)+ 1 ]=floats->femscltopl[ 1 ] ;//level f 
femsclverts[(23*7)+2]=floats->femscltopl[2]; 

for (i=20;i<24;i++) 

{ 

femsclverts[(i*7)+3]=vcfloats->outofmgcolor[0]; 

femsclverts[(i*7)+4]=vcfloats->outofmgcolor[l]; 

femsclverts[(i*7)+5]=vcfloats->outofrngcolor[2]; 

femsclverts[(i*7)+6]=floats->alphaoutmg; 

} 


for (i=0;i<24;i++) 

{ 

femsc!conts[i] = i; 

) 

cdata[0] type= VC.CONNECTIONLIST; 
cdata[0].faceCount=4; 

cdata[0].noConnections=6; 

cdata[0].data=femsclconts; 

vc_geom = VCPmesh_Create(VC_VERTEX_RGBA, 24, (VCVertex) femsclverts, I, cdata); 
if(vc_geom != NULL) 

VCGeogroup_AttachGeometry(vc_ggrp,vc_geom); 

visual = ECObjectGetVisual(objClrScl, NULL); 

if (visual == NULL) 

{ 

VC_Errorl ,, visual was NULLW); 
retum(ECKeepAction); 

} 

attribute = ECVisualGetVCAttribute(visual); 

VCVisual_SetDynamicVisual(attribute,vc_vis); 

ECVisualToVC (objClrScl, visual); 

// ECObjectSetPosOrScale(objClrScl,NULL,NULL,s);//DAD 

ECObjectToVC(objClrScl); 

retum(ECKeepAction); 

} 

//********** ****** ********* ************************** ************* *****♦*// 

// Function: diCreateColorSclGridFunc 

^* *************************** ********* ****** ******** ********************// 
int 

diCreateColorSclGridFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void * *args = action->parameters ; 

ECObject *object; 

ECObjectReference *ref; 

dmPoint reference = { O.Of, O.Of, O.Of }; 
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VCDynamicVisual *vc_vis; 

VCLod *vc_lod; 

VCGeogroup *vc_ggrp, 
VCConnectionData cdata[ 1 ]; 
VCConnectionList *vc_clist; 
char *mstr; 

int len; 

VCMaterial *material; 

EC V isual * vi s u al ; 

VCAttribute ^attribute; 

ECZone *zone; 

VCEnlity *femsclgrd_ent = NULL; 

VCCoIor 
VCGeometry 
int t; 

dmScale 
float32 


white={ 1,1,1 ) ,black= {0,0,0 } ,grdcolor={ 1,1,1 }; 
*vc_geom; 

s={0.85, 1.038, 1.00}; 
femsclgrdxyz[]= { 


0 , 0 , 0 , 

.035,0,0, 
.035,.2833*. 1,0, 
0,.2833*. 1,0, 
0,.2833*. 1,0, 

.035, .2833*. 1,0, 
.035, .2833*. 2,0, 
0,-2833*. 2,0, 
0,.2833*. 2,0, 

.035, .2833*. 2,0, 
.035, .2833*. 3,0, 
0..2833*. 3,0, 

0,. 2833*. 3,0, 

.035, .2833*. 3,0, 
.035,.2833*.4,0, 
0,.2833*.4,0, 
0,.2833*.4,0, 

.035, .2833*. 4,0, 
.035, .2833*. 5,0, 
0,. 2833*. 5,0, 
0,.2833*.5,0, 

.035, .2833*. 5,0, 

.035,. 2833 *.6,0, 

0,.2833*.6,0, 

0,.2833*.6,0, 

.035, .2833 *.6,0, 

.035,.2833*.7,0, 

0,.2833*.7,0, 

0,. 2833*. 7,0, 
.035,.2833*.7,0, 
.035, .2833*. 8,0, 
0,.2833*.8,0, 
0,.2833*.8,0, 
.035, .2833*. 8,0, 
.035, .2833*. 9,0, 
0,-2833*9,0, 

0,. 2833*. 9,0, 
.035,-2833* 9,0, 
.035,-2833*1.0,0, 
0,.2833*1.0,0, 

}; 


femsclgrdverts=(float32 *)malloc((40*3)*sizeof(float32)); 
femsclgrdconts=(uint32 *)malloc(( 10*4)*sizeof(uint32)); 

objClrSclGridref = (ECObjectReference *)args[l]; 
objClrSclGrid = ECReferenceObject(objClrSclGridref, &data.focus); 

mstr=dStringFromOptions(NULL, &len, "femsclgrdMat", DS_END_OF_OPTIONS); 

material=VCMaterial_Create(mstr, VC_MATERIAL_ENABLE, black, black, black, grdcolor, 
white, NULL, NULL, NULL); 
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if (Imaterial) printf("Text: Failed to create material TemsclgrdMatVT); 
femsclgrd_ent=VCEntity„Create(NULL, 0); 

// Create dynamic visual 

vc_vis = VCDynamicVisual_Create("femsclgrd_ent", 0); 

// Create lod 

vcjod = VCDynamicVisual_AddLod(vc_vis,"# 1 ", 0.0, -1, reference); 


// Create geogroup 

vc_ggrp = VCLod_AddGeogroup( vcjod, VC_VERTEX_XYZ, 

0,0,VC_GEOGROUP_LOCK_OFF,VC_GEOGROUP_DRAWMODE_WIREFRAME,0, , ’femsclgrdMat", "femsclMat"); 

for (i=0;i<40;i++) 

{ 

femsclgrdverts[(i*3)+0]:=femsclgrdxyz[(i*3)+0]; 
femsclgrdverts[(i*3)+ 1 ]=femsclgrdxyz[(i* 3)+ 1 ] ; 
femsclgrdverts[(i*3)+2]=femsclgrdxyz[(i*3)+2]; 

} 

for (i=0;i<40;i++) 

{ 

femsclgrdconts[i] = i; 

} 

cdata[0].type=VC_CONNECTIONLIST; 

cdata[0].faceCount=4; 

cdata[0] .noConnections= 1 0; 
cdata[0].data=femsclgrdconts; 

vc_geom = VCPmesh_Create(VCJVERTEX_XYZ, 40, (VCVertex) fe ms clgrd verts, 1, cdata); 
if(vc_geom != NULL) 

VCGeogroup_AttachGeometry(vc_ggrp,vc_geom); 

visual = ECObjectGetVisual(objClrSc!Grid, NULL); 

if (visual = NULL) 

{ 

VC_Error(” visual was NULL\n"); 
retum(ECKeepAction); 

} 

attribute = ECVisualGetVCAttribute(visual); 

VCVisual_SetDynamicVisual(attribute,vc_vis); 

ECVisualToVC (objClrSclGrid, visual); 

ECObjectSetPosOrScale(objClrSclGrid,NULL,NULL,s); 

ECObjectToVC(objClrSclGrid); 

retum(ECKeepAction); 


^******* ***************************************** ***********************// 
// Function; di_modify_ClrScl 

^* ********** **************************************** ********************// 

int di_modify_ClrScl(void) 

{ 


ECVisual *visual; 

VCAttribute *attr; 

VCEntity *entity; 

VCDynamicVisual *dyn_vis; 
VCGeogroup *dyn_geogrp; 

VCLod *dynJod; 

VCGeometry *dyn_geom; 

VCVertex_Reference ref; 
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int stat; 

VCDynamicVisuaLTraverse traverse 1 ; 

VCLod_Tra verse traverse2; 

VCGeogroup_Traverse traverse3; 
int i, index; 

dmPoint curvertpos; 

char *varNameFactor; /* Modification factor */ 

char *varFactor; /* Modification factor */ 

float32 c level, die ve I, zero level; 

float32 posmincolormod,negmincolormod; 

dmScale s={ 0. 85, 1.038, 1.00} jlD AD 


if(objClrScl == NULL) 

{ 

VC_Errort" Could not find object\n M ); 
retum(ECKeepAction); 

} 

entity = ECObjectGetVCEntity(objClrScl); 
identity == NULL) 

{ 

VC_Error("Cou!d not find entityW); 
retum(ECKeepAction); 

} 

visual = ECObjectGetVisual(objClrScl, NULL); 
if(visual = NULL) 

{ 

VC_Error( "Could not find visual\n"); 
retum(ECKeep Action); 

} 

attr = ECVisualGetVCAttribute( visual); 

// ECObjectSetPosOrScale(objClrScl,NULL,NULL,s)*y/DAD 

ECObjectToVC(objClrScl); 

VCVisual_GetDynamicVisual(attr,&dyn_vis); 

if(dyn_vis = NULL) 

{ 

VC_Error(" Could not find dynamic visual\n"); 
retum(ECKeepAction); 

} 

dynjod = VCDynamicVisual_GetFirstLod(dyn_vis, &traversel); 

dyn_geogrp = VCLod_GetFirstGeogroup(dyn_lod,VC_VERTEX_RGBA,&traverse2); 

dyn_geom = VCGeogroup_GetFirstGeometry(dyn_geogrp,VC_PMESH,&traverse3); 

stat = VCGeometry_GetFirstVertex(dyn_geom,&ref)^/vertex 0 
ref.data[0]=floats->femsclbotl[0]; 
ref.data[ 1 ]=floats->femsclbotl[ 1 ] ; 
ref.data[2]=floats->femsclbotl[2]; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[ 1 ]; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 1 
ref.data[0]=floats->femsclbotr[0] ; 
ref.data[ 1 ] =floats->femsclbotr[ 1 ] ; 
ref.data[2]=floats->femsclbotr{2]; 
refdata[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[ 1 ] ; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[61=floats->alphaoutmg; 
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stat = VCGeometry_GetNextVertex(&reO;//vertex 2 
ref.data[0]=floats->femsdtopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ] * floats ->clrsclbot; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data(4]=vcfloats->outofmgcolor[ 1 ] ; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 3 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ]*floats->clrsclbot; 
ref.data[2]=floats->femscltopl[2}; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[l]; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 4 
ref.data[0]=floats->femscltopl[0]; 
ref.data[lj=floats->femscltopl[l]*floats->clrsclbot; 
ref.data[2]=floats->femscltopl[2] ; 
ref.data[3]=vcfloats->negmaxcolor[0]; 
ref.data[4]=vcfloats->negmaxcolor[ 1 ] ; 
ref.data[5]=vcfloats->negmaxcolor[2]; 
ref.data[6]=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&ref)^/vertex 5 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ]*floats->clrsclbot; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->negmaxcolor[0]; 
ref.data[4]=vcfloats->negmaxcolor[ 1 ] ; 
ref.data[5]=vcfloats->negmaxcolor[2]; 
ref.data[6]=floats->a!phainmg-.2; 

if (floats->out_vals[2]<=0.0)//case 3 

{ 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

clevel=max(min(l .0-floats->threshold,floats->clrscltop),floats->clrsclbot); 

//below (commented out) gives a relative threshold percentage of color range 

// clevel=floats->clrscltop-(floats->threshold*(floats->clrscltop-floats->clrsclbot)); 

zerolevel=floats->clrscltop; 

dlevel=floats->clrscltop; 

negmincolormod=(floats->clrscltop-clevel)/(floats->clrscltop-floats->clrsclbot); 

posmincolormod=0.0; 

} 

else if (floats->out_vals[0]>=0.0)//case 2 

{ 

clevel=floats->clrsclbot; 

zerolevel=floats->clrsclbot; 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

dlevel=min(max(floats>threshold,floats->clrsclbot),floats->clrscltop); 

//below (commented out) gives a relative threshold percentage of color range 

// dlevel=floats->clrsclbot+(floats*>threshold*(floats->clrscltop-floats->clrsclbot)); 

negmincolormod=0.0; 

posmincolormod=(dlevel-floats->clrsclbot)/(floats->clrscltop-floats->clrsclbot); 


else//case 1 


zerolevel=fabs(floats->out_min)/(floats->out_max-floats->out_min); 

//below shows absolute threshold value on color scale, which cannot exceed color range limits 

clevel=min(max((zerolevel-(floats->threshold*max(zerolevel,1.0-zerolevel))), floats- 

>clrsclbot),zerolevel ) ; 

dlevel=rnax(min((zerolevel+(floats->threshold*max(zerolevel,1.0-zerolevel))), floats- 


>clrscltop),zerolevel); 

//below (commented out) gives a relative threshold percentage of color range 

// clevel=zerolevel-(floats->threshold*(zerolevel-floats->clrsclbot)); 

// dlevel=zerolevel+(floats->threshold*(floats->clrscltop-zerolevel)); 

negmincolorrnod=(zerolevel-clevel)/(zerolevel-floats->clrsclbot); 
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posmincolormod=(dlevel-zero1eveiy(floats->clrscltop-zerolevel); 


} 


stat = VCGeometry_GetNextVertex(&re0^vertex 6 
ref.data[0]=floats->femsdtopr[0]; 
ref.data[ 1 ]=floats->femscItopr[ 1 ] *devd ; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->negmincolor[0]+ 

negmincolormod* 

(vcfloats->negmaxcolor[0]-vcfloats- 

>negmincolor[0]); 

ref.data[4]=vcfloats->negmincolor[ 1 ]+ 

negmincolormod* 
(vcfloats->negmaxcolor[ 1 ]-vcfloats- 

>negmincolor[l]); 

ref.data[5]=vcfloats->negmincolor[2]+ 

negmincolormod* 

(vcfloats->negmaxcolor[2]-vcfloats- 

>negmincolor[2]); 

ref.data[6]=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&reOy/vertex 7 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ] *clevel; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->negmincolor[0]+ 

negmincolormod* 

(vcfloats->negmaxcolor[0]-vcfloats- 

>negmincolor[0]); 

ref.data[4]=vcfloats->negmincolor[ 1 ]+ 

negmincolormod* 

(vcfloats->negmaxcolor[ 1 ]-vcfloats- 

>negmincolor[l]); 

ref.data[5]=vcfloats->negmincolor[2]+ 

negmi n c olormod * 
(vcfloats->negmaxcolor[2]-vcfloats- 

>negmincolor[2]); 

ref.data[6]=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 8 
ref. data [0]=floats->femscltopl[0]; 
ref.data[ l]=floats->femscltopl[ 1 ]*clevel; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->negthreshcolor[0]; 
ref.data[4]=vcfloats->negthreshcolor[ 1 ]; 
ref. data[5]=vc floats ->negthreshcolor[ 23; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&reO^/vertex 9 
ref.data[0]=floats->femscltopr(0] ; 
ref.data[ 1 ]=floats->femscltopr[ 1 ] *clevel; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->negthreshcolor[0]; 
ref.data[4]=vcfloats->negthreshcolor[ 1 ] ; 
ref.data[5]=vcfloats->negthreshcolor[2]; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref)y/vertex 10 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ]=floats->femscltopr[ 1 ] *zerolevel; 
ref.data[2]=floats->femscltopr(2] ; 
ref.data[3j=vcfloats->negthreshcolor[0]; 
ref.data[4]=vcfloats->negthreshcolor[ 1 ] ; 
ref.data[5]=vcfloats->negthreshcolor[2]; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 1 1 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ] *zerolevel; 
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ref.data[2]=floats->femscltopI[2]; 
ref.data[3]=vcfloats->negthreshcolor[0]; 
ref.data[4]=vcfloats->negthreshcolor[ 1 ]; 
ref.data[5] =vcfloats->negthreshcolor[ 2 ] ; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 12 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ] *zerolevel ; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->posthreshcolor[0]; 
ref. data [4] =vc floats ->posth res hcolorf 1 j; 
ref.data[5] =vcfloats->posthreshcolor[ 2] ; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 13 
ief.datafO]=floats->femscltopr[0] ; 
ref.data[ 1 ]=floats->femscltopr[ l ]*zerolevel; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->posthreshcolor[0]; 
ref.data[4]=vcfloats->posthreshcolor[ 1 ]; 
ref.data[5]=vcfloats->posthreshcolor[2]; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 14 
ref.data[0]=floats->femscltopr(0] ; 
ref.data[ l]=floats->femscltopr[ 1 ]*dlevel ; 
ref.data[2]=floats->femscltopr[2]; 
ref. data[3]=vc floats ->posthresh co lor[Oj; 
ref.data[4]=vcfloats->posthreshcolor[ 1 ]; 
ref.data[5] =vcfloats->posthreshcolor[ 2 j ; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 15 
ref.data[0]=floats->femscltopl[0] ; 
ref.data[l]=floats->femscltopl[l]*dlevel; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->posthreshcolor[0]; 
ref.data[4]=vcfloats->posthreshcolor[ 1 ]; 
ref.data[5]=vcfloats->posthreshcolor[2]; 
ref.data[6]=floats->alphathresh; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 16 
ref.data[0]=floats->femscltopltO]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ] *dlevel; 
ref.data[2]=floats->femscltopl[2] ; 
ref.data[3]=vcfloats->posmincolor[0]+ 

posmincolormod* 
(vcfloats->posmaxcolor[0]-vc floats - 

>posmincolor[0]); 

ref.data[4]=vcfloats->posmincolor[ 1 ]+ 

posmincolormod* 
(vcfloats->posmaxcolor[ 1 ] - vcfloats- 

>posmincolor[l]); 

ref.data[5j=vcfloats->posmincolor[2]+ 

pos mincolormod * 
(vcfloats->posmaxcoIor[2]-vcfloats- 

>posmincolor[2)); 

ref.data[6] =floats->alphainmg- .2; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 17 
ref.data[0]=floats->femscltopr[Oj; 
ref.data[ 1 ]=floats->femscltopr[ 1 ]*dlevel; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->posmincolor[0]+ 

posmincolormod* 

(vcfloats->posmaxcolor[0]-vcfloats- 

>posmincolor[Oj); 

ref.data[4]=vcfloats->posmincolor[ 1 ]+ 

pos mincolormod * 


E-152 



(vcfloats->posmaxcolor[ 1 ]-vcfloats- 


>posmincolor[l]); 

ref.data[5]=vcfloats->posmincolor[2]+ 

posmincolormod* 

(vcfloats->posmaxcoIor[2]-vcfloats- 

>posmincolor[2]); 

ref.data[6]=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 1 8 
ref.data[0]=floats->femscltopr[0]; 
ref.data[l]=floats->femscltopr[I]*floats->clrsc]top; 
ref.data[2]=floats->femscltopr[2] ; 
ref.data[3]=vcfloats->posmaxcolor[0]; 
ref.data[4]=vcfloats->posmaxcolor[ 1 ] ; 
ref.data[5]=vcfloats->posmaxcolor[2]; 
ref.data[6]=floats*>alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&reO^/vertex 19 
ref.data[0]=floats->femscltopl[0]; 
ref.data[l]=floats->femscltopl[l]*floats->clrscltop; 
ref.data[2]=floats->femscltopl[2] ; 
ref.data[3]=vcfloats->posmaxcolor[0]; 
ref.data[4]=vcfloats->posmaxcolor[ 1 ] ; 
ref.data[5]=vcfloats->posmaxcolor[2]; 
ref.data[6j=floats->alphainmg-.2; 

stat = VCGeometry_GetNextVertex(&ref)y/vertex 20 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 J=floats->femscltopl[ 1 ] *floats->clrscltop; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->outofmgco]or[0]; 
ref.data[4]=vcfloats->outofmgcolor[l]; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&ref);//vertex 21 
ref.data[0]=floats->femscltopr[0]; 
ref.data[l]=floats->femscltopr[l]*floats->clrscltop; 
ref.data[2]=floats->femscltopr[2]; 
ref.data[3]=vcfloats->outofrngcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[ 1 ] ; 
ref.data[5]=vcfloats->outofrngcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&reOy/vertex 22 
ref.data[0]=floats->femscltopr[0]; 
ref.data[ 1 ] =floats->femscltopr[ 1 ] ; 
ref.data[2]=floats->femscltopr[2] ; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor[ 1 ]; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

stat = VCGeometry_GetNextVertex(&ref)^/vertex 23 
ref.data[0]=floats->femscltopl[0]; 
ref.data[ 1 ]=floats->femscltopl[ 1 ] ; 
ref.data[2]=floats->femscltopl[2]; 
ref.data[3]=vcfloats->outofmgcolor[0]; 
ref.data[4]=vcfloats->outofmgcolor( 1 ] ; 
ref.data[5]=vcfloats->outofmgcolor[2]; 
ref.data[6]=floats->alphaoutmg; 

VCGeometry_Flush(dyn_geom); 

} 

H ** *********************************************************************11 

//Function: di_intersect_handler 

^******* ****************************************************** **********// 
int 
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di_intersect_handler(VCBodyScreenlntersection_CallbackData *callbackData, void *data) 

{ 

int num Intersections; 

if (callbackData == NULL) 

{ 

printf( n di_intersect_handler : callbackData NULL; exiting handler\n M ); 
retum(EC Keep Action); 

} 


if(VClntersection_Get(callbackData->intersection, NULL, &intersectionReportData, &numIntersections, NULL) != VC_OK) 

{ 

VC_Errorf dvObjectlntersectFunc : VCIntersection_Get returned VC_ERR\n ); 
retum(ECKeepAction); 

} 

if (intersectionReportData) 

{ 

di_FEM_interact(); 

} 

return (ECKeepAction); 

} 

^** ******** ****************************** ***** ***** *********************// 

// Function: di_FEM Jnteract - performs operations based on where the 
// mouse button intersected with the model. 

//************************* ****************** *************** ********* ****// 


int di_FEM_interact() 

{ 

static VCEntity *graysphere; 

static VCEntity *bluesphere; 

static VCAttribute *v=NULL; 

static VCAttribute *w=NULL; 

static VCAttribute *a=NULL; 


VCAttribute *int_attribute = NULL; 

VCEntity * entity; 

VCEntity * parent; 

VCEntity *FEMent; 

VCEntity *Meshent; 

VCEntity *ClrSclent;//temp 

dmPoint p; 

dmEuler e; 

dmScale s; 

dmMatrix mat,inv_mat,matp,cur_mat; 

dmVector intvectl, intvect2; 

VCDynamicVisual *dvis; 

VCVertex__Reference ref; 

dmPoint orgndptl , orgndpt2, nodepl, nodep2; 


int num Intersections; 

int ii = 0, i, j, k, rightindex; 

/// int rightvert, rightelem, adjindex; 

dmEuler 

0 ; 

float32 

bade urn, badrec; 

float32 

anglerec, anglecalc, anglesum, angledif; 

float32 

intrec, lengthrec, intdist, length; 

dmVector 

sidevect; 

ECVisual *visuall,*visual2; 


VCAttribute *attributel,*attribute2; 

EntityList *pickedJoad = NULL, *picked_constr = NULL; 

// Load *p = NULL; 

c har *loadtype = "initialization", *name = "initialization", *cname = 

"initialization"; 

int r, type, node, cnode, face[6], value[6], dof_flag[6]; 


// Get the attribute of the intersected object 

int_attribute = intersectionReportData->visual; 

if ( (entity = intersection ReportData->entity)==NULL) retum(ECKeepAction); 
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if (intersectionReportData->point) 

{ 

VCEntity_GetPositionPointEulerScale(entity,p,e,s); 

dmMatFromPointEulerScale(mat,p,c,s); 

// visual] = ECObjectGetVisuaI(LoadList'>nodeobj, NULL); 

// attribute 1 = ECVisualGetVCAttnbute(visuall); 


if(ConstrList != NULL) 

for(picked_constr = ConstrUst; picked_constr != NULL; picked_constr = picked_constr->next) 

{ 

if (entity == picked_constr->nodeobj) 

l 

strcpy(cname, CONSTRAINT_SET[CONSTRAINTSET_PICK].B); 
cnode = CONSTRAINT_SET[CONSTRAINTSET_PICK].ID[ii]; 


for (r = 0; r < 6; r++) 

dof_flag[r] = 

CONSTR A IN T_S ET[ CON STR A INTSET_P IC K] . IN DEX [ i i * 6+r] ; 


printf(”\n"); 

sprintf(chars->outtxt,"Constr Set NameAn %s\nConstraint Node: %d\nTrans 

X = %d\nTrans Y = %d\nTrans Z = %d\nRot X = %d\nRot Y = %d\nRot Z = %d\n M , 

cname, cnode, dof_flag[0], dof_flag[l] > dof_flag[2], dof_flag[3], 

dof_flag[4], dof_flag[5]); 


VCString_SetText(femtextstring, chars->outtxt); 
break; 


} 


ii-H-; 


*********************************************** ************************/ 
ii = 0; 

if(LoadList != NULL) 

for(picked_load = LoadList; picked_load != NULL; picked_load = picked_load->next) 

{ 

if (entity == picked_load->nodeobj) 

{ 

strcpy(name, LO AD_SET[ LO ADSET_P IC K] . N AME) ; 
type = LOAD_SET[LO ADSET_PICK] .TYPE[ii] ; 
switch(type) 

{ 

case 1 : strcpy(loadtype, ’’Nodal Force"); 

break; 

case 2: strcpy(loadtype, "Nodal Displacement' 1 ); 
break; 

case 3: strcpy(loadtype, "Nodal Accel"); 
break; 

case 5: strcpy(loadtype, "Nodal Heat Generation”); 
break; 

case 6: strcpy(loadtype, "Nodal Heat Flux"); 
break; 

case 7; strcpy(loadtype, "Velocity"); 
break; 

case 8: strcpy(loadtype, "Nonlinear Transient"); 
break; 

case 10: strcpy(loadtype, "Distributed Line Load"); 
break; 

case 1 1 : strcpy(loadtype, "Element Face Pressure"); 
break; 

case 13; strcpy(loadtype, "Element Heat Generation"); 
break; 

case 14: strcpy(loadtype, "Element Heat Flux"); 
break; 
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case 15: strcpy(loadtype, "Element Convection"); 
break; 

case 16: strcpy( load type, "Element Radiation"); 
break; 


node = LOAD_SET[LOADSET_PICK].ID[ii]; 


for (r = 0; r < 6; r++){ 

face[r] = LOAD_SET[LOADSET_PICK].FACE[ii*6+r]; 
value[r) = LOAD_SET[LOADSET_PICK].VALUE[ii*8+2+r]; 

} 


sprintf(chars->outtxt,"Load Set Name:\n %sLoad Type: %s\nLoad Node: 
%d\nTrans x value = %d\nTrans y value = %d\nTrans z value = %d\nRot x value = %d\nRot y value = %d\nRot z value = %d\n , 

name, loadtype, node, value[0], value[l], value[2], value(3]. 


value[4], value[5]); 

VCString_SetText(femtextstring,chars->outtxt); 

//return; 

break; 


FEMent=ECObjectGetVCEntity (objFEM); 
Meshent=ECObjectGet V CEntity (objMesh); 
if ((entity == FEMent)ll(entity = Meshent)) 
{ 


if((parent = entity->parent)!=NULL) 

{ 

VCEntity_GetPositionPointEulerScale(parent,p,e,s); 

dmMatFromPointEulerScale(matp,p,e,s); 

dmMatMult(cur_mat,mat,matp); 

} 

else dmMatCopy(cur_mat,mat); 

dmMatlnvert(inv_mat,cur_mat); 

anglerec=360.0; 

pmi->rightvert=0; 


// Element closure angle test 

// to determine correct element intersected by intersection point 
// Dryer - 8/97 


for (i = 0; i < ELEMENT_NUM; i++) 

{ 


{ 

angles um=0.0; 

for (j = 0; j < elearray[i * 5]; j++) 

{ 

k=j+l; 

if (j=((elearray[i*5])-l)) k=0; 

dmPointSet (orgndptl, 

(vertices[((elearray[((i*5)+(j+l))])*7H0])+ 

((displaceobj[((elearray[((i*5)+(j+l))])*3)+OJ)*floats->LoadFactor*floats->exager), 

(vertices[((elearray[((i*5)+(j+l))])*7)+l])+ 

((displaceobj[((elearray[((i*5)+(j+l))])*3)+l])*floats->LoadFactor*floats->exager), 

(vertices[((elearray[((i*5)+(j+l))])*7)+2])+ 

((displaceobj[((elearray[((i*5)+(j+l))])*3)+2])*floats->LoadFactor*floats->exager)); 

dmPointXformMat(nodep 1 ,orgndpt 1 ,cur_mat); 
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dmPointSub (intvectl, intersectionReportData->point, nodepl); 


dmPointSet (orgndpt2, 

(vertices[((elearray [( (i*5)+(k+ 1 ))] )*7 )+0] )+ 

((displaceobj[((elearray[((i*5)+(k+l))j) # 3)+0])*floats->LoadFac{or*floats->exager), 

( vertices [((elearray[((i*5)+(k+ 1 ))])*7)+l])+ 

((displaceobj[((elean‘ay[((i*5)+(k+l))])*3)+l])*floats->LoadFactor*floats->exager), 

(vertices[((elearray[((i*5)+(k+l))])*7)+2])+ 

((displaceobj[((elearray[((i*5)+(k+l))])*3)+2])*floats->LoadFactor*floats->exager)); 

dmPointXformMat(nodep2,orgndpt2,cur_mat); 
dmPointSub (intvect2, intersectionReportData->point, nodep2); 

anglecalc=( 1 80.0/3 .141 5925 1 )* 

acos(((intvect 1 [0] *intvect2[0] )+(intvect 1 [ 1 ] *intvect2[ 1 ])+(intvect l [2] *intvect2[2]))/ 

((sqrt((intvect 1 [0] *intvect 1 [0])+(intvect 1 [ 1 ] *intvect 1 [ 1 ])+(intvect 1 [2] *intvect 1 [2])))* 
(sqrt((intvect2[0]*intvect2[0])+(intvect2[l]*intvect2[l])+(intvect2[2]*intvect2[2]))))); 

if( fabs(1.0- 

(((intvectl [0]*intvect2t0])+(intvectl[l]*intvect2[l])+( intvectl [2]*intvect2[2]))/ 

((sqrt((intvectl[0]*intvectl[0])+(intvectl[I]*intvectl[l])+(intvectl[2]*intvectl[2])))* 

(sqrt((intvect2[0] *intvect2[0])+(intvect2[ 1 ]*intvect2[ 1 ])+(intvect2[2]*intvect2[2] )))))) 

<.000001 ) 

anglecalc=0.0; 


anglesum=anglesum+anglecalc; 

} 

angledif = fabs(360.0-anglesum); 
if (angledif<anglerec) 

{ 

anglerec=angledif; 

pmi->rightelem=i; 


//Now that correct element is identified, 

// Determine nearest vertex to intersection point (pmi->rightvert) in identified element and 
// min side length (lengthrec) for sphere marker scaling 
//Dryer - 8/97 

intrec- 10000.0; 
lengthrec= 10000.0; 

for (j=0; j<elearray[pmi->rightelem*5] ; j++) 

{ 

//Set up variables 

k=j+l; 

if (j=((elearray[pmi*>rightelem*5])-l)) k=0; 
dmPointSet (orgndptl, 

(vertices [((elearray [((pmi->rightelem * 5 )+(j+ 1 ))] ) ! * 7 )+0] ) + 
((displaceobj[((elearray[((pmi- 

>rightelem*5)+(j+l))])*3)40])*floats->LoadFactor*floats->exager), 

(vertices[((elearray[((pmi->rightelem*5)+(j+l))j)*7)+l])+ 
((displaceobj [((elearray [((pmi- 

>rightelem*5)+(j+ 1 ))] )*3)+ 1 ])*floats->LoadFactor* floats->exager), 

(vertices! ((elearray [((pmi->rightetem*5)+(j+ 1 ))] )*7)+2])+ 
((displaceobj[((elearray[((pmi- 

>rightelem*5)+(j-f 1 ))])*3)+2])*floats->LoadFactor*floats->exager)); 

dmPointXformMat(nodep 1 ,orgndpt 1 ,cur_mat); 
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dmPointSet (orgndpt2, 

(vertices[((elearray[((pmi->rightelem*5)+(k+l))])*7)+0])+ 

((displaceobj[((elearray[((pmi- 

>rightelem*5)+(k+l ))])*3)+0])*floats->LoadFactor*floats->exager), 

( vertices[((elearray[((pmi->rightelem* 5)+(k+ 1 ))] )*7 )+ 1 ])+ 
((displaceobj[((elearray[((pmi- 

>rightelem*5)+(k+l))])*3)+l])*floats->LoadFactor*floats-:>exager), 

(vertices[((elearray[((pmio>rightelem*5)+(k+l))])*7)+2])+ 

((displaceobj[((elearray[((pmi- 

>rightelem*5)+(k+l))])*3)+2])*floats->LoadFactor*floats->exager)); 

dmPointXformMat(nodep2,orgndpt2,cur_mat); 


//Test for nearest element node 

dmPointSub (intvectl, intersectionReportData->point, nodepl); 

intdist=sqrt((intvect 1 [0] * intvect 1 [0])+(intvect 1 [ 1 ] *intvect l [ 1 ])+(intvect 1 [2] *intvect 1 [2] )) ; 

if (intdist<intrec) 

{ 

intrec=intdist; 

pmi->rightvert=elearray[(pmi->rightelem*5)+(j+ 1 )] ; 
points->rightnodep[0]=nodepl [0]; 
points->rightnodep{ 1 ]=nodepl [ 1 ] ; 
points->rightnodep[2]=nodepl[2]; 
rightindex = j; 


// adjust rightindex for beam elements 
1 ))) 

== 2 ») 


if (((ELEMENT_P+pmi->rightelem)->A = 2) && ((rightindex == 0) 11 (rightindex = 


pmi->adjindex = 0; 

else if (((ELEMENT_P+pmi->rightelem)->A == 2) && ((rightindex == 3) II (rightindex 
pmi->adjindex = 1 ; 

else 


pmi->adjindex = rightindex; 


//Calculate max element side length for sphere marker scaling 

dmPointSub (sidevect, nodepl, nodep2); 

length=sqrt((sidevect[0]*sidevect[0])+(sidevect[l]*sidevect[l])+(sidevect[2]*sidevect[2])); 

if (length<lengthrec) lengthrec=length; 


if ((ELEMENT_P+pmi->rightelem)->A = 2) 

{ 

lengthrec=lengthrec*(floats->beamdelta/10); 

} 


//Dryer: used to see which vertex is being selected 
// outvert[pmi->rightvert]=out_max; 

sprintf(chars->outtxt,"%s\nNode #: %i\nElement #: %i\n\n%s%10.6f\nDX: %10.6f\nDY: %10.6f\nDZ: %10.6f\n’\ 

names ->actual_case_name, 

(NODE_P+((EIJiMENT_P+pmi->rightelem)->B[pmi->adjindex]))->A, 

(ELEMENT_P+pmi->rightelem)->D, 

names->actual_set_narne[(switches->outtypenum*5)+switches->outsubnum], 

outvert[pmi->rightvert]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+0]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+l]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+2]*floats->LoadFactor); 


// create graysphere 

graysphere = VCEntity_Create(NULL, 0); 
if (VCAttribute_Delete (v) != 0) 

VC_Error ("Error cannot destroy attribute\n n ); 
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v = VCVisuaLCreateGeometry ("graysphere"); 

VCEntity.Attach Attribute (graysphere, v); 

VCEntity_Scale(graysphere, (lengthrec/7.0), (lengthrec/7.0), (lengthrec/7.0)); 
VCEntity_SetPositionPoint(graysphere,intersectionReportData->point); 


// create bluesphere 

bluesphere = VCEntity_Create(NULL, 0); 
if (VCAttribute_E>elete (w) != 0) 

VC_Error ("Error cannot destroy attributed”); 

w = VCVisuaLCreateGeometry ("bluesphere”); 

VCEntity .Attach Attribute (bluesphere, w); 

VCEntity_Scale(bluesphere, (lengthrec/5.0), (lengthrec/5.0), (Iengthrec/5.0)); 
VCEntity_SetPositionPoint(bluesphere,points->rightnodep); 

if (VCAttribute.Delete (a) != 0) 

VC.Error ("Error cannot destroy audio attributed”); 
a = VCEntity.Add AudioVoice (bluesphere, "explosion”); 

if (a == NULL) 

{ 

VC.Error ("Cannot create audio instanced”); 

) 

else 

{ 

/* Play the audio voice */ 

VCAudio.Start (a); 

I* Change the loop count to infinity, set to highest priority 
and play */ 

VCAudio.SetLoopCount (a, 1); 

VCAudio.SetPriority (a, VC_AUDIO_PRIORITY_LOCKED); 

VCAudio.Start (a); 

) 

di.modi fy_FEM(); 

if (switches->meshdynmode==l) di_modify_Mesh(); 
di_modify_LoadSet(); 
di_modify_ConstraintSet(); 
switches->picknode=l y/picknode 
} 

else 

{ 

// sprintf(chars->outtxt,”%s ,, ,"No selection"); 

} 

VCString_SetText(femtextstring,chars->outtxt); 

} 

return; 

} 

//*****> ******************************************************************// 

// Function: di_create_body_handler 

// Comments: Dryer added di.create_body_handler 

//********** ************************ *************************************// 


int 

di_create_body_handler(VCBodyCreate_CallbackData *bodyData, void *data) 

{ 

VCBody *body = bodyData->body; 

VCBody_AttachScreenIntersectionCallback(body, NULL, di_intersect_handler, NULL); 
return; 

I 

/y*** **************************************** ****** ************ ***♦**♦***// 

// Function: ObjectlntersectedCallback 

H* ************************************************************** ********// 

int 
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ObjectIntersectedCallbacMVCIntersection_CallbackData *cdata, void *data) 

{ 


intersectionReportData = VCIntersection_GetFirstIntersectionReport(cdata->intersection, NULL); 

if(intersectionReportData == NULL) 

{ 

return; 

} 


di_FEM_interact(); 

} 

//****jt^ **************************** ********* *********** *****************// 

// Function: dilmmersDataFunc 

//************* ************************** ********************** ♦ *♦*******// 
int 

di!mmersDataFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

char *part = NULL; 

VCAttribute *vcLimb; 

ECObjectReference *ref; 

VCPositionData pos; 
dmMatrix handMat; 

dmPoint pt; 

dmEuler ori; 

dmScale scaledm; 

VC_Tra verse traverselnfo; 

float32 length = 50.0; 

uint32 newMask = 0x10; 

uint32 oldMask; 

intersectArgs intersec tData; 

VCEntity *hitEntity; 

VCAttribute ^intersection; 

VCIntersection *intersectionData; 

//Fix 

pos. mode = 0; 

if(args[l] != NULL) 
part = (char *)args[l]; 
else 

part = "hand”; 

intersectData. event = (uint32 *)args[2]; 
ref = (ECObjectReference *)args[3]; 

intersectData. object = ECReferenceObject(ref, &data. focus); 

// Is there a body? 
if(data.body) 

{ // Get limb position 

vcLimb = VCBody_GetBodyPart(data.body, part); 

} 

else 

{ // Get limb position 

vcLimb = VCBody_GetBodyPart(VC_GetFirstBody(&traverseInfo) > part); 

> 

if (vcLimb == NULL) 

{ 

VC_Error("dvObjectIntersectFunc: Didn’t get limb %s.\n", part); 
retum(ECKeep Action); 

} 


// Calculate hand matrix from position 

if(VCEntity_GetAbsolutePosition(vcLimb->first, handMat) != VC_OK) 
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VC_Error("dvObjectIntersectFunc : VCEntity_GetAbsolutePosition returned VC_ERR\n"); 
return (EC Keep Ac t ion); 


} 

// First time? 
if(args[0]==NULL) 

{ 

int *plnt = (int *)malloc(sizeof(int)); 
args[0] = pint; 

// Get the hand intersection mask 

if(VCVectorIntersect_GetIntersectMask(vcLimb, &oldMask) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCVectorIntersect_GetIntersectMask returned VC_ERR\n ); 
retum(ECKeepAction); 

} 

// Stop the vector from intersecting the limb named, 

// by setting its mask value to the same 

if(VCVectorIntersect_ModifyIntersectMask (vcLimb, NULL, oldMask) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCVectorIntersect_ModifyIntersectMask returned VC_ERR\n"); 
retum(ECKeepAction); 

} 

// Get point, orientation and scale 
dmPointEulerScaleFromMat(pt, ori, scaledm, handMat); 

// Get a position from above 

if(VCFosition_MakePointEulerScale (&pos, pt, ori, scaledm) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCPosition_MakePointEulerScale returned VC_ERR\n"); 
retum(ECKeepAction); 

} 

// Define the hit entity 

hitEntity = VCEntity_Create(&pos, NULL); 

// Evaluate intersection 

intersection = VCVectorIntersect_Create(VC_VECTORINTERSECT_ENABLE, 
length, newMask, 1); 
if(intersection = NULL) 

{ 

VC_Error("dvObjectlntersectFunc : intersection is NULLVn"); 
retum(ECKeepAction); 

} 

// Attach vector intersect to an entity 

if(VCEntity_AttachAttribute(hitEntity, intersection) == VC„ERR) 

{ 

VC_ErrorC'dvObjectIntersectFunc : could not attach vector intersect to entity\n”); 
retum(EC Keep Action); 

1 


// Get vector intersection. 

if(VCVectorIntersect_GetIntersection(intersection, &intersectionData) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VC Vector Intersect_Get Intersection returned VC_ERR\n"); 
retum(ECKeepAction); 

} 

// Add intersection udpate handler. 

if (VCIntersection_AttachUpdateCallback(intersectionData, ObjectlntersectedCallback, 

(void *)&intersectData) == NULL) 

{ 

VC_Error("dvObjectIntersectFunc : Failed to add intersection update handler.\n"); 
retum( EC Keep Action); 

} 


If Set back the hand intersect mask 

if(VCVectorIntersect_ModifyIntersectMask (vcLimb, oldMask, NULL) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCVectorIntersect„ModifyIntersectMask returned VC_ERR\n”); 
retum(ECKeepAction); 

} 
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} 

else 

{ 

// Get the hand intersect mask 

if(VCVectorlntersect_GetIntersectMask (vcLimb, &oldMask) != VC_OK) 

{ 

V C_Error( " d vObj ect Intersec tFunc : VCVectorIntersect_GetIntersectMask returned VC_HRR\n"); 
retum(ECKeepAction); 

} 

if(VCVectorlntersect_ModifyIntersectMask (vcLimb, NULL, oldMask) != VC_OK) 

VC_Error("dvObjectIntersectFunc : VCVectorIntersect„SetlntersectMask returned VC_ERR\n"); 
retum(ECKeepAction); 

} 

// Evaluate new hitEntity 

if(VCEntity_SetPositionMatrix (hitEntity, handMat) != VC_OK) 

{ 

VC_Error( ,, dvObjectlntersectFunc : VCEntity^SetPositionMatrix returned VC_ERR\n"); 
return (EC Keep Action); 

) 

// Evaluate new intersection 

if(VCVectorIntersect_Set(intersection, VC_VECTORINTERSECT_ENABLE, NULL, &length, 
newMask, NULL, NULL) != VC_OK) 

{ 

VC_Error( ,, dvObjectIntersectFunc : VCVectorIntersect_Set returned VC_ERR\n"); 
retum(ECKeepAction); 

} 

// Set back the hand intersect mask 

if(VCVectorIntersect_ModifyIntersectMask (vcLimb, oldMask, NULL) != VC_OK) 

{ 

VC_Error("dvObjectIntersectFunc : VCVectorlntersect_SetIntersectMask returned VC_ERR\n ); 
retum(ECKeepAction); 

} 


return (EC Keep Action); 

} 

//** ******************************** ***************************** ********// 
//Function: di_animTimer 

^********************** ******************************** *****************// 


int 

di_animTimer(VCTimer_CallbackData *callbackData, void *data) 

{ 

int i; 

if (switches->startanim=l) 

{ 

// FEM animation floats->LoadFactor 0.0 to 1 .0 

for (i=0; i< 100; i++)//loop for sawtooth animation 

{ 

floats->LoadFactor=i/ 1 00.0; 
di_modify_FEM(); 

if (switches->meshdynmode==l) di_modify_Mesh(); 
di_modi fy_ Load Se t ( ) ; 
di_modify_ConstraintSet(); 

} 

if (switches->animmode==0)//tum on loop for ramp animation 

{ 

for (i=l00; i>0; i-) 

{ 

floats->LoadFactor=i/l 00.0; 
di_modify_FEM(); 

if (switches->meshdynmode==l ) di_modify_Mesh(); 
di_modify_LoadSet( ); 
di_modify_ConstraintSet(); 

) 
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} 


} 


} 

II ********************************** * ************************ ************ II 

// Function: di_animalarm 

I I* ** * ************************ ****** * ***** ********* ** * ***************** 


int 

di_animalarm(VCTimer_CallbackData *cd, void *data) 

{ 

void *animHandle=data; 


if (switches- >startanim=0) 


VCTimer_DetachCallback(animHandle); 

> 

else 


} 


if (animHandle) 

{ 

VCTimer_DetachCallback(animHandle); /* stop the animation */ 
/* and re-run this function in one seconds time to restart animation *1 

VCTimer_AttachExpiringCallback(l, di_animalarm, NULL); 

) 

else 


} 


/* data is NULL, so restart animation */ 

animHandle = VCTimer_AttachPeriodicCallback( 100.0/100.0, di_animTimer, NULL); 
if (lanimHandle) 

printf(’’Failed to restart animation\n"); 

else 


VCTimer_AttachExpiringCalIback(l , di_animalarm, animHandle); 


***************** ****^** *************** *******************************// 
//Function: diToggleAnimFunc 

//**************** ********* *************** *******************************// 


int diToggleAnimFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

if(ECArgReferenceGetValue(args[I], (void *)&switches->startanim, &data.focus) = VC_ERR) 
switches->startanim = - 1 ; 


if (switches->startanim=l) 

{ 

void *animHandle; 


) 


} 


animHandle = VCTimer_AttachPeriodicCallback (100.0/100.0, di_animTimer, NULL); 
VCTimer_AttachExpiringCallback(l, di_animalarm, animHandle); 


//*****# ********************************************* *************** #****/y 

// Function: diBodyStartupPosFEMFunc - Sets the zone startup body position 

jj ************* ******************************************************** **// 

int 

diBodyStartupPosFEMFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

dmPoint s; 

VCBody *thisBody; 

VCBody *body = data.body; 

VC_Traverse traverselnfo; 
void **args = action->parameters; 
dmMatrix tempMat; /* Get original body position */ 
float32 tempX; 
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float32 tempY; 
float32 tempZ; 


/* Is there a body? */ 
if (body == NULL) 

body = VC_GetFirstBody(&traverseInfo); 

if(body != NULL) 

{ 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(s, tempMat); 


//STARTUP HOME (FRONT) VIEW 

tempX = points->FEMcenter[VC_X]; 
tempY = points->FEMcenter[VC_Y]; 

tempZ = points->FEMcenter[VC_Z]+(floats->xyzmax-(floats->xyzmax/4.0)); 

s[VC_X] = tempX; 
s[VC_Y] = tempY; 
s[VC_Z] = tempZ; 


/* Set the current body startup position */ 

VCBody_SetPosition(body, NULL, s, NULL, NULL, NULL, NULL); 

} 

/* Accomodate for NULL values and no body */ 
s[VC_X] = tempX; 
s[VC_Y] = tempY; 
s[VC_Z] = tempZ; 

f* Set the Global body position */ 
if(body != NULL) 

ECZoneSetBodyStartupPosition(ECBodyGetZone(body), s); 
else 

ECZoneSetBodyStartupPosition(ECTopZoneGet(), s); 
retum(ECKeepAction); 

} 

/y*****^*^**^ ******************************************** **************// 
//Function: diNavModeFunc 

yy* ****** ***************** ********** *********************** ************** ff 


int diNavModeFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

if(ECArgReferenceGetValue(args[l], (void *)&switches->navmode, &data.focus) == VC_ERR)//switches->navmode is 

navmode 


switches->navmode = 1 ; 


} 


yy********* ****** ******** ************* ******* ************************ ****// 

//Function: diSetViewFunc 

yy************* ***************************************** *****************// 


int diSetViewFunc(ECEvent *event, ECEventData data, ECAction *action) 

I 

void **args = action->parameters; 

dmMatrix tempMat; 

uint32 viewnum; 

VCBody *body = data.body; 


if(ECArgReferenceGetValue(args[ 1], (void *)&viewnum, &data.focus) == VC_ERR) 
viewnum = I ; 
switch(viewnum) 

{ 

case 1 : //Set User View 1 

switches->setl = I^/setl 

VCBody_GetAbsolutePosition (body, tempMat); 
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dmPointFromMat(points->viewl, tempMat); 
break; 

case 2 : //Set User View 2 

switches->set2 = l;//set2 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(points->view2, tempMat); 
break; 

default : //Set User View 1 

switches->setl = 1^/setl 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(points->view 1 , tempMat); 
break; 

} 

} 

y^*************** *************************************************** ***♦*// 

// Function: diBodyMoveToFunc - Navigates (in different modes) the body 
// to a given viewpoint or position while orienting on the 

// center of the FEM or other designated object center 

//********** ***************************************** ********************// 


int 

diBodyMoveToFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

static float32 lasty=0.0; 


float32 time; 

float32 elapsed; 

int32 done = 0; 


float32 

float32 

dmPoint 

dmPoint 

Movelnfo 

VCBody 

void 

VC_Traverse 

dmMatrix 

dmEuler 

float32 


rate = 1 ; 
len; 

newPos; 

*mi; 


towards; 


♦body = data.body; 
**args = acti on -> parameters; 
traverselnfo; 
tempMat; 

o; 

xdegree,y degree, zdegree; 


dmVector orientVect; 
dmVector adjvector; 
float32 
float32 
float32 
uint32 
float32 


tempX; 
tempY; 
tempZ; 
view--l ; 
standoff=20.0; 


if(ECArgReferenceGetValue(args[ 1 ], (void *)&view, &data.focus) = VC_ERR) 
view- 1 ; 

switch(view) 

{ 

case 1 : //TOP VIEW 

tempX = points->FEMcenter[VC_X]; 

tempY = points->FEMcenter[VC_Y]+(floats->xyzmax-(floats->xyzmax/4.0)); 

tempZ = points->FEMcenter[VC_Z]; 

towards[VC_X] = points->FEMcenter(VC_X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

towards[VC_Z] = points ->FEMcenter[VC_Z]; 

break; 

case 2; //BACK VIEW 

tempX = points->FEMcenter[VC_X]; 
tempY = points->FEMcenter[VC_Y]; 

tempZ = points->FEMcenter[VC_Z]-(floats*>xyzmax-(floats->xyzmax/4.0)) ; 

towards [VC_X] = points->FEMcenter[VC_X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

towards[VC_Z] = points->FEMcenter[VC_Z]; 

break; 

case 3 : //LEFT VIEW 

tempX = points->FEMcenter[VC_X]-(floats->xyzmax-(floats->xyzmax/4.0)); 
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case 4: 


case 5 : 


case 6 : 


case 7 : 


case 8 : 


case 9 : 


case 10 : 


tempY = points->FEMcenter[VC_Y]; 
tempZ = points->FEMcenter[VC_Z]; 
towards[ VC_X] = points->FEMcenter[VC_X]; 
towards! VC_Y] = points->FEMcenter[VC_Y]; 
towards! VC_Z] = points->FEMcenter[VC_Z]; 
break; 

//HOME (FRONT) VIEW 
tempX = points->FEMcenter[VC_X]; 
tempY = points->FEMcenter!VC_Y]; 

tempZ = points->FEMcenter[VC_Z]+(floats->xyzmax-(floats->xyzmax/4.0)); 

towards[VC_X] = points->FEMcenter[VC_X]; 

towards! VC_Y] = points->FEMcenter[ VCJY]; 

towards [VC_Z] = points->FEMcenter[VC_Z]; 

break; 

//RIGHT VIEW 

tempX = points->FEMcenter[VC_X]+(floats->xyzmax-(floats->xyzmax/4.0)); 

tempY = points->FEM center! VC_Y]; 

tempZ = points->FEMcenter!VC_Z]; 

towards! VC_X] = points->FEMcenter[VC_X]; 

towards! VC_Y] - points->FEMcenter[VC_Y]; 

towards! VC_Z] = points->FEMcenter[VC_Z]; 

break; 

//ISOFRONTLEFT VIEW 

tempX = points->FEMcenter[VC_X]-(floats->xyzmax-(floats->xyzmax/2.0)); 

tempY = points->FEMcenter[VC_Y]+(floats->xyzmax-(floats->xyzmax/2.0)); 

tempZ = points->FEMcenter[VC_Z]+(floats->xyzmax-(floats->xyzmax/2.0)); 

towards! VC_Xj = points->FEMcenter[VC_X]; 

towards! VC_Y] - points->FEMcenter[VC_Y]; 

towards !VC_Z] = points->FEMcenter[VC_Z]; 

break; 

//BOTTOM VIEW 

tempX = points->FEMcenter[VC_X]; 

tempY = points->FEMcenter[VC_Y]-(floats->xyzmax-(floats->xyzmax/4.0)); 

tempZ = points->FEMcenter[VC_Z]; 

towards I VC_X] = poin ts->FEM center! VC_X]; 

towards!VC_Y] = points->FEMcenter[VC_Y]; 

towards! VC_Z] = points->FEMcenter[VC_Z]; 

break; 

//ISOFRONTRIGHT VIEW 

tempX = points->FEMcenter[VC_X]+(floats->xyzmax-(floats->xyzmax/2.0)); 

tempY = points->FEMcenter[VC_Y]+(floats->xyzmax-(floats->xyzmax/2.0)); 

tempZ = points->FEMcenter[VC_Z]+(floats->xyzmax-(floats->xyzmax/2,0)); 

towards! VC_X] = points->FEMcenter[VC_X]; 

towards! VC_YI = points->FEMcenter[VC_Y]; 

towards I VC_Z] = points->FEMcenter!VC_Z]; 

break; 

//NODE VIEW 
if (switches->picknode = 1) 

{ 

tempX = points->rightnodep[VC_X]; 
tempY = points ->rightnodep[VC_Y]; 
tempZ = points->rightnodep[VC_Z]; 
towards[VC_Xj = points->rightnodep[VC_X]; 
towards! VC_Y] = points*>rightnodep[VC_Y]; 
towards!VC_Z] = points->rightnodep[VC_Z3; 

} 

else 

{ // Return early because no node selection 
args[0] = NULL; 
retum(ECKeepAction); 


break; 

//USER VIEW 1 
if (switches->setl = 1 )//set 1 
{ 

tempX - points->viewl [VC_X]; 

tempY - points->viewl [VC_Y]; 

tempZ = points->viewl !VC_Z]; 

towards [VC_X] = points->FEMcenter!VC_X]; 

tow r ards[VC_Y] = points->FEMcenter!VC_Y]; 
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towards [VC_Z] = points->FEMcenter[VC_Z]; 


} 

else 

{ // Return early because points->viewl not set 
args[0] = NULL; 
retum(ECKeepAction); 

} 

break; 

case 1 1 : //USER VIEW 2 

if (switches->set2 = l)//set2 

{ 

tempX = points->view2[VC_X]; 

tempY = points->view2[VC_Y]; 

tempZ = points->view2[VC_Z]; 

towards [VC_X] = points->FEMcenter[VC„X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

towards[VC_Z] = points->FEMcenter[VC_Z]; 

} 

else 

{ ft Return early because points->view2 not set 
args[0] = NULL; 
retum(ECKeepAction); 

} 

break; 

default: //HOME (FRONT) VIEW 

tempX = points->FEMcenter[VC_X]; 
tempY = points->FEMcenter[VC_Y]; 

tempZ as points->FEMcenter[VC_Z]+(floats->xyzmax-(floats->xyzmax/4)); 

towards[VC_X] = points->FEMcenter[VC_X]; 

towards[VC_Y] = points->FEMcenter[VC_Y]; 

toward s[VC_Z] = poi nts ->FEM center [VC_Z]; 

break; 


switch(switches->navmode) //navmode 

{ 

case 1 : //fast/hyper mode (orient on FEM center) 

// Is there a body? 
if (body == NULL) 

body = VC_GetFirstBody(&tra verse Info); 

if ((mi = args[0]) == NULL) // first call 

{ 

args[0]= mi=(MoveInfo *)malloc(sizeof(MoveInfo)); 
dmPointSet (mi->posa,tempX, tempY, tempZ); 

rate = 400.0; 

(! Setup move information parameters 
mi -> body = body; 

if (body != NULL) 

{ 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(mi->bodyOffset, tempMat); 

} 

else 

{ 

mi->bodyOffset[VC_X] = 0.0; 
mi->bodyOffset[VC_Y] = 0.0; 
mi->bodyOffset[VC_Z] = 0.0; 

} 


if (view == 9) 

{ 

dmPointSub (adjvector, mi->bodyOffset, towards); 
adjvector[0]=(adjvector[0]/sqrt((adjvector[0]*adjvector[0])+ 

(adj vector! 1 j *adj vector! 1 ])+ 
(adjvector[2]*adjvector[2])))*(floats- 

>xyzm ax/standoff) ; 
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>xyzm ax/st and off) ; 


>xyzmax/standoff); 


adjvector[ 1 ]=(adjvector[ 1 ]/sqrt((adj vector[0]*adj vector[0])+ 

(adjvector[ 1 ]*adjvector[ 1 ])+ 
(adjvector[2]*adjvector[2])))*( floats- 

adjvector[2]=(adjvector[2]/sqrt((adjvector[0]*adjvector[0])+ 

(adj vectorf 1 ] *adj vector[ 1 ] )+ 
(adjvector[2]*adjvector[2])))*(floats- 

dmPointAddVector (mi->posa, mi->posa, adjvector); 


mi->velocity[VC_X] = mi->posa[VC_X] - mi->bodyOffset[VC_X]; 
mi->velocity[VC_Y] = mi->posa[VC_Y] - mi->bodyOffset[VC_Y]; 
mi->velocity[VC_Z] = mi->posa[VC_Z] - mi->bodyOffset[VC_Z]; 
len=sqrt(mi->velocity[VC_X] * mi->velocity[VC_X]+ 
mi->velocity[VC_Y] * mi->velocity[VC_Y]+ 
mi->velocity[VC_Z] * mi->velocity[VC_Zj); 

if(len != 0) 


rate /= len; 

} 

else 

{ H Return early because zero distance to move 
args[0] = NULL; 
retum(ECKeepAction); 

} 

mi->velocity[VC_X] *= rate; 
mi->velocity[VC_Y] *= rate; 
mi->velocity[VC_Z] *= rate; 
mi->time = -i.f; 
if(rate != 0) 

{ 

mi->totalTime = l.f / rate; 

} 

else 

{ // Return early because zero speed entered 
args[0] = NULL; 
retum(ECKeepAction); 

} 

ECZoneAddAnimateAction(ECBodyGetZone(body), event, action); 

} 

// Added this so that we use the time in the zone 
// where the body is. 

time = ECZoneGetTime(ECBodyGetZone(body)); 
if (mi->time= -1.0 
{ 

mi->time=time; 

elapsed=0.f; 

} 

else 

{ 

elapsed=time-mi->time; 

} 

if (elapsed < mi->totalTime) 

{ 

// Animate body 

newPos[VC_X] = mi->bodyOffset[VC_X] + elapsed * mi->velocity[VC_X]; 
newPos[VC_Y] = mi->bodyOffset[VC_Y] + elapsed * mi->velocity[VC_Yj; 
newPos[VC_Z] = mi->bodyOffset[VC_Z] + elapsed * mi->velocity[VC_Z]; 
//Update orientation to towards (FEM center or node (for node view)) 
dmPointSub (orient Vect, towards, newPos); 

xdegree-( 1 80.0/3. 1 4 1 5925 1 )* 

(asin(orientVect[l]/ 

(sqrt((orientVect[0j*orientVect[0])+ 
(orientVect[ 1 ] *orientVect[ 1 ])+ 
(orientVect[2]*orientVect[2]))))); 

ydegree=- 1 .0*(90+(( 1 80.0/3. 1 4 1 5925 1 )* 
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(dmSafeAtan2 (orientVect[2], orientVect[0])))); 
if ((orientVect[2] < .00001 && orientVect[2] > -.00001 )&&(onentVect[0] < 00001 && 


orientVect[0j > -.00001)) 


{ 


) 

else 

{ 

) 


ydegree=lasty; 


lasty = ydegree; 


zdegree = 0.0; 

dmEulerSetD(o,xdegree, ydegree .zdegree); 
retum(ECKeepAction);///added 


} 

else 

{ 

// Move body to final position 

newPos[VC_X] = mi->posa[VC_X]; 
newPos[VC_Y] = mi->posa[VC_Y]; 
newPos [VC_Z] = mi->posa[VC_Z]; 


//Update final orientation to towards (FEM center or node (node view)) 

dmPointSub (orient Vect, towards, newPos); 


orientVect[0] > -.00001)) 


xdegree=( 1 80.0/3 . 1 4 1 5925 1 )* 

(asin(orientVect[ 1 ]/ 

(sqrt((orientVect[0]*orientVect[0])+ 

(orient Vect[ 1 ] * orient Vect[ 1 ] )+ 

(orientVect[ 2] *orientVect[2] ))))); 

ydegree^ -1.0* (90+(( 1 80.0/3 .14159251)* 

(dmSafeAtan2 (orient Vect[2], orientVect[0])))); 

if ((orientVect[2] < .00001 && orientVect[2] > -.00001 )&&(orientVect[0] < .00001 && 


{ 


ydegree=lasty; 


else 

{ 

lasty = ydegree; 

} 


zdegree = 0.0; 

dmEu lerSetD(o ,x degree , ydegree, zdegree) ; 
done = 1 ; 

} 

if(mi->body != NULL) 

{ VCBody_SetPosition(mi->body, NULL, newPos, o, NULL, NULL, NULL); 

} 

else 

VCBody_SetPosition(VC_GetFirstBody(&traverselnfo), NULL, newPos, o, NULL, NULL, NULL); 

} 


ifidone == 1) 


// Clean up 

free(mi); 

args[0] = NULL; 

retum(ECRemoveAction); 


) 
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retum(ECKeepAction); 

break; 


case 2 : //straight line fly move (orient on FEM center) 

switches->navstate=0; 

// Is there a body? 
if (body == NULL) 

body = VC_GetFirstBody(&traverseInfo); 

if ((mi = args[0]) = NULL) // first call 

{ 

args[0]- mi=(Movelnfo *)malloc(sizeof(MoveInfo)); 
dmPointSet (mi->posa,tempX,tempY,tempZ); 


// Extract user parameters 

if(ECArgReferenceGetValue(args[2], (void *)&rate, &data. focus) == VC_ERR) 
rate = 4.0; 

// Setup move information parameters 

mi->body = body; 

if (body != NULL) 

{ 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(mi->bodyOffset, tempMat); 

) 

else 

{ 

mi->bodyOffset[VC_X] = 0.0; 
mi->bodyOffset[VC_Y] = 0.0; 
mi->bodyOffset[VC_Z] = 0.0; 

} 


>xyzmax/standoff); 


>xyzmax/standoff); 


>xy zmax/standofO ; 


if (view = 9) 

{ 

dmPointSub (adjvector, mi->bodyOffset, towards); 

adjvector[0]=(adjvector[0]/sqrt((adjvector[0]*adjvector[0])+ 

(adj vector[ 1 ] *adj vector[ 1 j )+ 
(adjvector[2] *adj vector[2] )))*(floats 

adjvector[ 1 ]=(adjvector[l]/sqrt((adjvector[0]*adjvector[0])+ 

(adj vector[ 1 ] * adj vec tor[ 1 1 )+ 

(adj vector[ 2] * adj vec tor [ 2 ] ))) * (floats 

adj vector[2]=(adj vector[ 2]/sqrt((adjvector[0]*adjvector[0])+ 

(adj vector( 1 ] * adj vector! 1 ] )+ 

(adj vector[ 2] * adj vector! 2] )) ) * ( fl oats 

dmPoint Add Vector (mi->posa, mi->posa, adj vector); 

} 


mi->velocity!VC_X] = mi->posa!VC_X] - mi->bodyOffset[VC_X]; 
mi->velocity[VC_Y] = mi->posa[VC_Y] - mi->bodyOffset[VC_Y]; 
mi-> velocity [VC_Z] = mi->posa[VC_Z] - mi->bodyOffset[VC_Z]; 
len=sqrt(mi-> velocity [VC_X] * mi->velocitytVC_X]+ 
mi->velocity[VC_Y] * mi->velocity[VC_Y]+ 
mi->velocity[VC_Z] * mi->velocity[VC_Z]); 

if(len != 0) 


rate /= len; 

} 

else 

{ // Return early because zero distance to move 
args(0] = NULL; 
retum(ECKeepAction); 

} 

mi->velocitylVC_XJ *= rate; 
mi->velocity[VC_Y] *= rate; 
mi->velocity[VC_Z] *=rate; 
mi->time = -l.f; 
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if(rate != 0) 

{ 

mi->totalTime = 1 f / rate; 


else 

{ // Return early because zero speed entered 
args[0] = NULL; 
retum(ECKeepAction); 

} 

ECZone Add Animate Action(ECBodyGetZone(body), event, action); 

) 

// Added this so that we use the time in the zone 
// where the body is. 

time = ECZoneGetTime(ECBodyGetZone(body)); 
if (mi->time= -1.0 
{ 

mi->time=time; 

elapsed=0.f; 

} 

else 

{ 

elapsed=time-mi->time; 

} 

if (elapsed < mi->totalTime) 

{ 

// Animate body 

newPos[VC_X] = mi->bodyOffset[VC_X] + elapsed * mi->velocity[VC_X]; 
newPos[VC_Y] = mi->bodyOffset[VC_Y] + elapsed * mi->velocity[VC_Y]; 
newPos[VC_Z] = mi->bodyOffset(VC_Z] + elapsed * mi->velocity[VC_Z]; 

//Update orientation towards FEM center 

dmPointSub (orientVect, towards, newPos); 

xdegree=(l 80.0/3.14159251)* 

(asin(orientVect[lj/ 

(sqrt((orientVect[0] *orientVect[0] )+ 

(orientVect[ 1 ] *orientVect[ 1 ])+ 

(orientVect[2]*orientVect[2]))))>; 

ydegree=- 1 ,0*(90+(( 1 80.0/3 . 1415925 1 )* 

(dmSafeAtan2 (orientVect[2], orientVect[0])))); 

if ((orientVect[2] < .00001 && orientVect[2] > -.00001 )&&(orientVect[0] < .00001 && 

orientVect[0] > -.00001)) 

{ 


ydegree=lasty; 


else 

{ 

} 


lasty = ydegree; 


zdegree = 0.0; 

dmEulerSetD(o,xdegree, ydegree, zdegree); 

} 

else 

{ 

// Move body to final position 

newPos[VC_X] = mi->posa[VC_X]; 
newPos[VC_Y] = mi->posa[VC_Y]; 
newPos[VC_Z] = mi->posa[VC_Z]; 

//Update final orientation towards FEM center 

dmPointSub (orientVect, towards, newPos); 

xdegree=( 1 80.0/3. 141 5925 1 )* 

(asin(onentVect[l]/ 

(sqrt((orientVect[0]*orientVect{0])+ 
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orientVect[0] > -.00001)) 


(orientVect[ I }*onentVect[ 1 ])+ 

(orientVect[2j*orientVect[2]))))); 

ydegree=- 1 .0*(90+(( 1 80.0/3 .141 5925 1 )* 

(dmSafeAtan2 (orientVect[2], orientVect[0])))); 

if ((orient Vect[2] < .00001 && orientVect[2] > -.00001 )&&(orientVect[0] < .00001 && 


ydegree=lasty; 


else 

{ 

} 


lasty = ydegree; 


zdegree = 0.0; 

dmEu lerSetD(o,x degree, ydegree, zdegree); 
done = 1 ; 

} 

if(mi->body != NULL) 

{ VCBody_SetPosition(mi->body, NULL, newPos, o, NULL, NULL, NULL); 

} 

else 

{ 

VCBody_SetPosition(VC_GetFirstBody(&traverseInfo), NULL, newPos, o, NULL, NULL, NULL); 

} 


if(done = 1) 


// Clean up 

free(mi); 
args[0] = NULL; 
switches->navstate= 1 ; 
return (EC Remove Action) ; 

) 

retum(ECKeepAction); 

break; 

default: //straight line fly move (orient on FEM center) 

// Is there a body? 
if (body == NULL) 

body = VC_GetFirstBody(&traverseInfo); 

if ((mi = args[0j) = NULL) // first call 

{ 

args[0]= mi=(MoveInfo *)malloc(sizeof(MoveInfo)); 
dmPointSet (mi->posa,tempX,tempY,tempZ); 


// Extract user parameters 

if(ECArgReferenceGetValue(args[2], (void *)&rate, &data.focus) = VC_ERR) 
rate = 4.0; 

// Setup move information parameters 

mi->body = body; 

if (body != NULL) 

{ 

VCBody_GetAbsolutePosition (body, tempMat); 
dmPointFromMat(mi->bodyOffset, tempMat); 

} 

else 

{ 

mi->bodyOffset[VC_X] = 0.0; 
mi->bodyOffset[VC_Y] = 0.0; 
mi->bodyOffset[VC_Z] = 0.0; 

} 
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if (view == 9) 

{ 

dmPointSub (adjvector, mi ->body Offset, towards); 
adjvector[0]=(adjvector[0]/sqrt((adjvector[0]*adjvector[0])+ 

(adjvector[ 1 ]*adjvector[ l])+ 
(adjvector[2)*adjvector[2])))*(floats 

>xyzmax/standoff) ; 

adjvector[l]=(adjvector[l]/sqrt((adjvector[0]*adjvector[0])+ 

(adjvector[ 1 ] *adj vectorf 1 ] )+ 
(adjvector[2]*adjvector[2])))*(floats 

>xyzmax/standoff) ; 

adjvector[2]=(adjvector[2]/sqrt((adjvector[0]*adjvector[0])+ 

(adjvector[ 1 j*adjvector[ 1 ])+ 
(adjvector[2]*adjvector[2])))*(floats 

>xyzmax/standoff); 

dmPointAdd Vector (mi->posa, mi->posa, adjvector); 

} 

mi->velocity[VC_X] = mi->posa[VC_X] - mi->bodyOffset[VC_X]; 
mi->velocity[VC_Y] = mi->posa[VC_Y] - mi->bodyOffset[VC_Y]; 
mi->velocity[VC_Z] = mi->posa[VC_Z] - mi->bodyOffset[VC_Z]; 
ien=sqrt(mi->velocity[VC_X] * mi->velocity(VC_X]+ 
mi->velocity[VC_Y] * mi->velocity[VC_Y]+ 
mi->velocity[VC_Z] * mi->velocity[VC_Z]); 

if(len != 0) 

{ 

rate /= len; 

} 

else 

{ H Return early because zero distance to move 
args[0] = NULL; 
retum(ECKeepAction) ; 

} 

mi->velocity[VC_X] *= rate; 
mi->velocity[VC_Y] *= rate; 
mi->velocity[VC_Z] *= rate; 
mi->time = -l.f; 
if(rate != 0) 

{ 

mi->totalTime = l.f / rate; 

} 

else 

{ // Return early because zero speed entered 
args[0] = NULL; 
retum( EC Keep Action); 

} 

ECZoneAddAnimateAction(ECBodyGetZone(body), event, action); 

} 

// Added this so that we use the time in the zone 
// where the body is. 

time = ECZoneGetTime(ECBodyGetZone(body)); 
if (mi->time= -l.f) 


mi->time=time; 

elapsed^O.f; 

} 

else 


{ 

} 


elapsed=time-mi->time; 


if (elapsed < mi->totalTime) 


// Animate body 

newPos[VC_X] = mi->bodyOffset[VC_X] + elapsed * mi->velocity[VC_X]; 
newPos[VC_Y] = mi->bodyOffset[VC_Y] + elapsed * mi->velocity[VC_Yj; 
newPos[VC_Z] = mi->bodyOffset[VC_Z] + elapsed * mi->velocity[VC_Z]; 
//Update orientation towards FEM center 

dmPointSub (orientVect, towards, newPos); 
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orientVect[0] > -.00001)) 


xdegree=( 1 80.0/3 .141 5925 1 )* 

(asin(onentVect[lj/ 

(sqrt((orientVect[0]*orientVecl[0])+ 

(orientVect[ l]*orientVect[l])+ 

(orientVect[2]*orientVect[2]))))); 

ydegree=- 1 .0*(90+<( 1 80.0/3 . 1 4 1 5925 1 )* 

(dmSafeAtan2 (orientVect[2], orientVect[0])))); 

if ((onentVect[2] < .00001 && orient Vect[2] > -.00001 )&&(orienlVect[0] < .00001 && 


I 


ydegree=lasty; 


else 

{ 

lasty = ydegree; 

} 


zdegree = 0.0; 

dmEu lerSetD(o , xdegree , ydegree, zdegree ) ; 

} 

else 

{ 

// Move body to final position 

newPos[VC_X] = mi->posa[VC_X]; 
newPos[VC_Y] = mi->posa[VC_Y]; 
newPos[VC_Z] = mi->posa[VC_Z]; 


//Update final orientation towards FEM center 

dmPointSub (orientVect, towards, newPos); 

xdegree=( 1 80.0/3. 1 4 1 5925 1 )* 

(asin(orientVect[ 1 ]/ 

(sqrt((orientVect[0]*orientVect[0])+ 

(orient Vect[ 1 ] *orientVect[ 1 ])+ 

(orient Vect[ 2] *orientVect[2])»)); 

ydegree=- 1 .0*(90+(( 1 80.0/3 . 1415925 1 )* 

(dmSafeAtan2 (orientVect[2], orientVect[0])))); 

if ((orient Vect[2] < .00001 && orientVect[2] > -.00001)&&(orientVect[0] < .00001 && 

orientVect[0] > -.00001)) 

{ 


ydegree=lasty; 

} 

else 


lasty = ydegree; 


zdegree = 0.0; 

dmEulerSetD(o,xdegree,ydegree, zdegree); 
done - 1 ; 

} 

if(mi->body != NULL) 

{ VCBody_SetPosition(mi->body, NULL, newPos, o, NULL, NULL, NULL); 

} 

else 

VCBody_SetPosition(VC_GetFirstBody(&traverselnfo), NULL, newPos, o, NULL, NULL, NULL); 

} 
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if(done == 1) 

{ 

// Clean up 

free(mi); 
args[0] = NULL; 
retum(ECRemove Action); 

} 

retum(ECKeepAction); 

break; 

} 

) 

yy* ******* ************* ** ** ** ***** ** ********* *********** ******* **********yy 

// Function: diToggleMeshDynFunc 

yy* ************************************************************ *******♦*♦// 


int diToggleMeshDynFunc(ECEvent *event, ECEventData data, ECAction ♦action) 

{ 

void **args = action->parameters; 

i f(EC ArgReferenceGet Value(args [ 1 ] , (void *)&switches->meshdynmode, &data.focus) = VC_ERR) 
switches->meshdynmode = 1; 


} 


^ * ^ ****************************************************************** *// 
// Function: diToggleAnimModeFunc 

yy************* ***************************************** *****************// 


int diToggleAnimModeFunc(ECEvent ♦event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

if(EC ArgReferenceGet Value(args[l], (void *)&switches->animmode, &data.focus) = VC_ERR) 
switches->animmode = 1; 


} 


yy** *********************** *********************** ***********************yy 
// Function: diOutputSetFunc 

yy**** **************** *********** **************** ************************// 


int diOutputSetFunc(ECEvent *event, ECEventData data, ECAction ♦action) 

{ 

void ♦♦args = action->parameters; 

if(ECArgReferenceGetValue(args[ 1 ], (void *)&switches->outtypenum, &data.focus) == VC_ERR) 
switches->outtypenum = 0; 

if(ECArgReferenceGetValue(args[2], (void *)&switches->outsubnum, &data.focus) == VC_ERR) 
switches->outsubnum = 0; 

di_set_range(); 

dLoutput_mods() ; 

di_modify_ClrScl(); 

d i_modi fy_FEM ( ) ; 

sprintf(chars->outtxt, "%sNode #: %i\nElement #: %i\n\n%s%10.6f\nDX: %10.6f\nDY: %10.6f\nDZ: %10.6f\n , 

names ->actuaJ_case_name, 

(NODE_P+((ELEMENT_P+pmi->rightelem)->B[pmi->adjindex]))->A, 

(ELEMENT_P+pmi->rightelem)->D, 

names->actual_set_name[(switches->outtypenum*5)+switches->outsubnum], 

outvert[pmi->rightvert]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+0]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+l]*floats->LoadFactor, 

displaceobj[(pmi->rightvert*3)+2]*floats->LoadFactor); 

VCString_SetText(femtextstring,chars->outtxt); 

di_updateclrscltxt(); 


U *********************************************************************** // 

// Function: headtrackTimerHandler 

yy*** ************************************************************ *♦****♦*// 
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static void 

headtrackTimerHandler (VCTimer_CallbackData *callbackData, 

void *data) 

{ 

VCBody *body = data; 

VC_Tra verse traverse Info; 

dmMatrix tempMat; 

dmEuler o; 

dmQuatemion q,ql ,q2; 

float32 xrad,yrad,zrad; 

float32 xquat,yquat,zquat,wquat; 

/* Timer gone off - read the events */ 

VCBody_GetAbsolutePosition (body, tempMat); 

// dmEulerFromMat (o, tempMat); 

// printf("eulers are %f %f %f\n",o[0],o[ 1 ],o[2]); 

dmQuatFromMat (ql .tempMat); 

// xrad=o[0]; 

// yrad=o[l]; 

// zrad=o[2]; 

// dmEulerSet(o,xrad,yrad,zrad); 

xquat=0.0; 

yquat=0.0; 

zquat=0.0+.005; 

wquat=1.0; 

dmQuatSet (q2,xquat,yquat,zquat,wquat); 
dmQuatMult (q, q 1 , q2); 

// printf("quats are %f %f %f %f\n\n'\q[0],q[l],q[2],q[3]); 

dmEulerFromQuat (o, q); 

if(body != NULL) 

{ 

VCBody_SetPosition(body, NULL, NULL, o, NULL, NULL, NULL); 

} 

else 

{ 

VCBody_SetPosition(VC_GetFirstBody(&traverseInfo), NULL, NULL, o, NULL, NULL, NULL); 

} 

} 

yy* ****** ************************************************** ****** ********yy 

// Function: dilnsideTraklnitFunc 

yy* ****** ******* ********************************* ************** **********yy 

int dilnsideTrak Ini tFunc(ECE vent *event, ECEventData data, ECAction ’•‘action) 

{ 

void **args = action->parameters; 

// VCBody *body = data.body; 

// if (body == NULL) 

// body = VC_GetFirstBody(&tra verse Info); 

// VCBody_SetFlyMode (body, VC_BODY_FLY_ VERTICAL ); 

insideinit(); 

) 

yy****** ********************************************* ********************// 

// Function: headtrackSyncHandler 

yy****** ********************************** ************** *****************yy 


static void 

headtrackSyncHandler(VCSync_CallbackData *cal!backData, void *data) 

VCBody *body = data; 

VCAttribute *vcLimb; 

char *part - NULL; 

static dmEuler oprev={ 0,0,0}; 


E-176 



dmEuler o,otemp; 

dmEuler e; 

VC_Traverse traverse Info; 

dmMatrix tempMat; 

static dmQuatemion qprev={ 0,0,0, 1 }; 

dmQuatemion q,ql,q2,qtemp; 

/* VCSync *sync = caltbackData->sync;; 


if (IsyncTime) 

{ 

syncTime=(VCTime *)malloc(sizeof(VCTime)); 
VCSync_GetTime(sync, syncTime); 
syncTime- >secs=syncTime->secs+ 10; 
syncTime->uSecs=syncTime->uSecs+0; 

// VCSync_SetTime(sync,syncTime); 

printf("syncTime is %d %d\n",syncTime->secs,syncTime->uSecs); 

} 


else 

{ 

VCSync_SetTime(sync, syncTime); 

// VCSync_GetTime(sync, syncTime); 

syncTime->secs=syncTime->secs+10; 

syncTime->uSecs=syncTime->uSecs+0; 

// VCSync_SetTime(sync,syncTime); 

printf(” syncTime is %d %d\n M ,syncTime->secs,syncTime->uSecs); 

} 

*f 

/* Find part if defined, else find head */ 
if(part != NULL) 

vcLimb = VCBody_GetBodyPart (body, part); 
else 

vcLimb = VCBody_GetBodyPart (body, "head"); 

/* Check that the limb part was found */ 
if(vcLimb == NULL) 

{ 

VC_Error("dvBodyPartAttachFunc : Limb part %$ was not foundW, part); 
retum(ECKeepAction); 

} 


VCBody_GetAbsolutePosition ((void *) body, tempMat); 
dmEulerFromMat (e, tempMat); 

// printfC’curs x y z euler is %f %f %f\n",c[0],e[l],e[2]); 

dmQuatFromMat (ql , tempMat); 

/// printf("quats are %f %f %f %f\n\n”,ql[0],ql[l],ql [2],ql[3]); 

if (switches->navstate=l) 

{ 

insidetick(); 

dmEulerSetD (o,yeulfloat,-xeulfloat,-zeulfloat); 

// printf("o x y z euler is %f %f %f\n",yeulfloat,-xeulfloat,-zeulfloat); 

/// dmQuatFromEuler (q2,o); 

// printffquats are %f %f %f %fiai\n",q2[0],q2[l],q2[2],q2[3 ]); 

// printf("o x y z euler is %f %f %f\n",o[0],o[l],o[2]); 

// otemp[0]=o[0]; 

otemp[l]=o[l]; 

// otemp[2]=o[2]; 

// qtemp[0)=q2[0]; 

// qtemp[l]=q2[l j; 

// qtemp[2]=q2[2]; 

// qtemp[3]=q2[3]; 

// o[0]=o[0]-oprev[0]; 

o[l]=o[l)-oprev[l]; 

/// o[2]=o[2]-oprev[2]; 

// if <fabs(q 1 [0])<.25 && fabs(ql[2])<.25) 

// { 
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// 


} 

else 


e[0]=o[0]; 
e[l]=e[l]+o[l]; 
e[2]=o[2]; 
printf("curs x y 


z euler is %f %f %i\n",e[0],e( l],e[2]); 


ff 

If 

If 

If 

If 

if 

fl 

ft 

If 

If 

if 

if 

ff 

if 

fl 


if 

ff 

if 

ff 

ff 

fl 

} 


e[0]=e{0]+o[l] 

e[l]=e[l]+o[0] 

e[2]=e[2]+o[l] 


q2[0]=q2[0]-qprev[0]; 
q2[ 1 ]=q2[ 1 ]-qprev[ 1 1; 
q2[2]=q2[2]-qprev[2]; 
q2{3]=q2[3]-qprev[3]; 

printfCquats are %f %f %f %f\n\n",q2[0],q2[l],q2[2],q2[3]); 
dmQuatMult (q, ql, q2); 

printf(”lquats are %f %f %f %f\n\n",q[0],q[l],q[2],q[3]); 
dmEulerFromQuat (o, q); 
if(body != NULL) 

{ 

VCBody_SetPosition(body, vcLimb, NULL, e, NULL, NULL, NULL); 

} 

else 

VCBody_SetPosition(VC_GetFirstBody(&traverseInfo), vcLimb, NULL, e, NULL, NULL, NULL); 

} 

oprev[0]=otemp[0]; 

oprev[l]=otemp[l]; 

oprev[2]=otemp[2]; 

qprev[0]=qtemp[0] ; 
qprev[l]=qtemp[l], 
qprev[2]=qtemp[21; 
qprev[3]=qtemp[3]; 


^*****************^ ********************** ******************************// 
ff Function: diSynchPartTrackFunc 

U + ************************************************** ********************// 


int 

diSynchPartTrackFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

VCBody *body = data.body; 

ff VCSync *sync; 

ff VCTime syncTime; 


ff sync = callbackData->sync; 

ff syncTime. secs = 0; 

If syncTime. uSecs = 1000; 

ff VCSync_Create ("local”, "visual", "syncTime"); 


ff Changed to sync update callback for new 2D interface 

VC_AttachSyncCallbacks("locar, "visual”, headtrackSync Handler, NULL, (void *)body); 
retum(ECKeep Action); 

} 


int diToggleNavStateFunc(ECEvent *event, ECEventData data, ECAction *action) 


{ 


} 


void **args = action->parameters; 

if(ECArgReferenceGetValue(args[l], (void *)&switches->navstate, &data.focus) == VC_ERR) 
switches->navstate = 1 ; 
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^* ****************#************************************************************// 

// Function: diToggleLoadFunc - toggles visibility of loads on model // 

*********#**************************************>)<*** + * ******************* ****y/ 

int diToggleLoadFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

EntityList *tmp = NULL; 

void **args = action->parameters; 

tmp = malloc (sizeof (EntityList)); 

if(ECArgReferenceGetValue(args[ 1 ], (void *)&switches->loadcasestate, &data.focus) == VC_ERR) 
switches->loadcasestate = 1 ; 

if (switches->loadcasestate = 1) 

for(tmp = LoadUst; tmp != NULL; tmp = tmp->next) 

VCVisual_ModifyMode (tmp->vis, VC_VISIBLE, 0); 

else 

forftmp = LoadList; tmp != NULL; tmp = tmp->next) 

VCVisual_ModifyMode (tmp->vis, 0, VC_VISIBLE); 

free(tmp); 

} 

//*****♦* ************************************************************** *********// 

// Function: diCreateLoadObjectsFunc - creates the loads on the model // 

//**********************************************♦* ********************* ♦******♦*// 


int diCreateLoadObjectsFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

int i; 

void **args = action- parameters; 

EntityList *newltem; 
dmEuler o; 
dmScale s; 

LoadList = malloc (sizeof (EntityList)); 

LoadUst = NULL; 

for(i = 0; i < LOADSET_NUM && i < 100; i++){ 
newltem = malloc (sizeof (EntityUst)); 

// Initialization 

newItem->nodeobj = newltem->vis = newltem->next = NULL; 

// Populate the new item 
if(loadcoordind != NULL){ 

newItem->nodeobj=VCEntity_Create(NULL,0); 
newItem->vis=VCVisual_CreateGeometry( ,l greenarw"); 
VCVisual_SetIntersectMask (newltem->vis, 1); 

VCEntity_Attach Attribute (newItem->nodeobj, newltem->vis); 
newltem->nodepoint[0] = vertice$[(loadcoordind[i]*7)+0]; 
newltem->nodepoint[l] = vertices[(loadcoordind[i]*7)+l]; 
newItem->nodepoint[2] = vertices[(loadcoordind[i]*7)+2]; 

// Add the new item to the beginning of the list 
if (LoadUst == NULL) 

LoadUst = newltem; 

else{ 

newltem->next = LoadList; 

LoadList = newltem; 

} 

// Creates the points on the model and sets it invisible 

dmEulerSetD (o, 0, 90, 0); 
s[0J=floats->xyzmax/5; 
s[ 1 ]=floats->xyzmax/5; 
s[2]=floats->xyzmax/5; 

VCEntity_SetPositionPointEulerScale (LoadList->nodeobj, LoadList->nodepoint, o, s); 
VCVisual_ModifyMode (LoadList->vis, 0, VC_V1SIBLE); 

} 
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di_modify_LoadSet(); 

dLmodify_ConstraintSet(); 

} 


yy**************** **************** ************************************* ****** ***yy 
//Function: di_modify_LoadSet - modifies the loads on the model // 

yy* ************************♦****************************************************// 

int di_modify_LoadSet(void) 

{ 

EntityList *tmp = NULL; 
int i=0; 

tmp = malloc (sizeof (EntityList)); 

for(tmp = LoadList; tmp != NULL; tmp = tmp->next) 

tmp->nodepoint[0] = vertices[(loadcoordind[i]*7)+0]+displaceobj[(loadcoordind[i]*3)+0]*floats- 
>LoadFactor* floats- >ex ager ; 

tmp->nodepoint[ 1 ] = vertices[(loadcoordind[i]*7)+l}Kiisplaceobj[(loadcoordind[i]*3)+l]*f]oats->LoadFactor*floats->exager; 
tmp->nodepoint[2] = vertices[(loadcoordind[i]*7)+2]+displaceobj[(loadcoordind[i]*3)+2]*floats->LoadFactor*floats->exager; 
VCEntity_SetPositionPoint (tmp->nodeobj, tmp->nodepoint); 
i++; 

} 

free(tmp); 

} 

yy******** ******* *********** ***** ************************************ ***********// 

// Function: diToggleConstrFunc - toggles visibility of constraints on model // 

yy** ********************* **************************** ***************************// 

int diToggleConstrFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

EntityList *tmp = NULL; 

void **args = action->parameters; 

tmp = malloc (sizeof (EntityList)); 

if(ECArgReferenceGetValue(args[ 1 ], (void *)&switches->constraintstate, &data.focus) = VC_ERR) 
switches->constraintstate = 1 ; 


} 


if (switches ->constraintstate == 1) 

for(tmp = ConstrList; tmp != NULL; tmp = tmp->next) 

VCVisual_ModifyMode (tmp->vis, VC_VISIBLE, 0); 


else 


free(tmp); 


for(tmp = ConstrList; tmp != NULL; tmp = tmp->next) 

VCVisual_ModifyMode (tmp->vis, 0, VC__VISIBLE); 


yy** *********** ************************************** ***************************// 

// Function: diCreateConstrObjectsFunc - creates the constraints on the model// 

yy********* ******* *********************************************** ********* ******y/ 


int diCreateConstrObjectsFunc(ECEvent *event, ECEventData data, ECAction 'action) 

{ 

int i; 

void **args = action->parameters; 

EntityList *newltem; 
dmEuler o; 
dmScale s; 

ConstrList = malloc (sizeof (EntityList)); 

ConstrList = NULL; 

for(i = 0; i < CONSTRAINTSET_NUM; i++){ 

newltem = malloc (sizeof (EntityList)); 

// Initialization 

new!tem->nodeobj = newltem->vis = newltem->next = NULL; 
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// Populate the new item 

newItem->nodeobj=VCEntity_Create(NULL,0); 

newltem->vis=VCVisual_CreateGeometry("greensphere M ); 

VCVisual_SetIntersectMask (newltem->vis, 1); H Create Intersect Mask 

VCEntity_Attach Attribute (newItem->nodeobj, newltem->vis); 
newltem->nodepoint[0] = vertices[(constrcoordind[i]*7)+0]; 
newltem->nodepoint[l] = vertices[(constrcoordind[i)*7)+l]; 
newltem->nodepoint[2] = vertices[(constrcoordind[i]*7)+2]; 

// Add the new item to the beginning of the list 
if (ConstrList == NULL) 

ConstrList = newltem; 

else{ 

newltem->next = ConstrList; 

ConstrList = newltem; 

1 

// Creates the points on the model and sets it invisible 
s[0] = floats->xyzmax/l75; 
s[l] = floats->xyzmax/175; 
s[2] = floats->xyzmax/175; 

VCEntity_SetPositionPointEulerScale (ConstrList->nodeobj, ConstrUst->nodepoint, NULL, s); 
VCVisual_ModifyMode (ConstrUst->vis, 0, VC_VISIBLE); 

} 

di_modify_ConstraintSet(); 

} 

^**************** *********************************** ***************************// 

// Function: di_modify_ConstraintSet - modifies the constraints on the model // 

//* *************** ********************************************* *****************// 


int di_modify_ConstraintSet(void) 

{ 

EntityList *tmp = NULL; 
int i=0; 

tmp = malloc (sizeof (EntityList)); 

for(tmp = ConstrList; tmp != NULL; tmp = tmp->next) 

tmp->nodepoint[0] = vertices[(constrcoordind[i]*7)+0]+displaceobj[(constrcoordind[i]*3)+0]*floats- 
>LoadFactor*floats->exager; 

tmp->nodepoint[l] = vertices[(constrcoordind[i]*7)+l]+displaceobj[(constrcoordind[i]*3)+l]*floats->LoadFactor*floats- 

>exager; 

tmp->nodepoint[2] = vertices[(constrcoordind[i] *7)+2]+displaceobj [(constrcoordind[i] * 3 )+2] *floats->LoadFactor* floats- 
>exager; 

VCEntity_SetPositionPoint (tmp->nodeobj, tmp->nodepoint); 
i++; 


free(tmp); 

} 

yy******************* ************************************** **************// 

// Function: diCreateViewButtonFunc 

yy** ****** *********** ************************** **************************// 


int 

diCreateViewButtonFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void **args = action ->parameters; 

ECVisual ^visual; 

VCAttribute *visattribute; 

objViewButtonref = (ECObjectReference *)args[l]; 
objViewButton = ECReferenceObject(objViewButtonref, &data. focus); 

visual = ECObjectGetVisual(objViewButton, NULL); 

if (visual == NULL) 
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( 

VC_Error(" visual was NULLVn”); 
retum(ECKeepAction); 

) 

visattnbute = ECVisualGetVCAttribute(visual); 

ECVisualToVC (objViewButton, visual); 

ECObjectToVC(objViewButton); 

retum(ECKeepAction); 

) 

************************ ******************= ft************************// 

//Function: diCreateViewTextFunc 

yy* ****** *********************************************** ******* **********// 

int 

diCreateViewTextFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

EC Visual * visual; 

VCAttribute *visattribute; 

objViewTextref = (ECObjectReference *)args[l]; 
objViewText = ECReferenceObject(objViewTextref, &data. focus); 

visual = ECObjectGetVisual(objViewText, NULL); 

if (visual = NULL) 

{ 

VC_Error("' visual was NULL\n"); 
return (EC KeepActi on); 

} 

visattribute = EC VisualGetVCAttribute( visual); 

ECVisualToVC (objViewText, visual); 

ECObjectToVC(objViewText); 

retum(ECKeepAction); 

} 

yy** ***************************************************************** ****// 

// Function: diCreateDataButtonFunc 

yy * ****************************************** **************************** // 


int 

diCreateDataButtonFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action->parameters; 

ECVisual ^visual; 

VCAttribute * visattribute; 

objDataButtonref = (ECObjectReference *)args[l]; 
objDataButton = ECReferenceObject(objDataButtonref, &data. focus); 

visual = ECObjectGetVisual(objDataButton, NULL); 

if (visual == NULL) 

{ 

VC_Error( "visual was NULL\n"); 
retum(ECKeepAction); 

} 

visattribute = ECVisualGetVCAttribute( visual); 

ECVisualToVC (objDataButton, visual); 

ECObjectToVC(objDataButton); 

retum(ECKeepAction); 

} 

yy* ********************************************************************* *// 

//Function: diCreateDataTextFunc 

yy********************************** ******************************* ******// 


int 

diCreateDataTextFunc(ECEvent *event, ECEventData data, ECAction *action) 
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{ 

void **args = action->parameters; 

ECVisual *visual; 

VCAttribute *visattribute; 

objDataTextref = (ECObjectReference *)args[l]; 
objDataText = ECReferenceObject(objDataTextref, &data.focus); 

visual = ECObjectGetVisual(objDataText, NULL); 

if (visual == NULL) 

{ 

VC_Error(" visual was NULL\n"); 
retum(ECKeepAction); 

} 

visattribute = ECVisualGetVCAttribute(visual); 

ECVisualToVC (objDataText, visual); 

ECObjectToVC(objDataText); 
retum(ECKeep Action); 

} 

//* *********** ****************************************** ******* ***♦♦*****// 
H Function: diCreateVisButtonFunc 

//************ ****************************************************** *+***// 
int 

diCreateVisButtonFunc(ECEvent *event, ECEventData data, ECAction ^action) 

{ 

void **args = action->parameters; 

ECVisual * visual; 

VCAttribute * visattribute; 

objVisButtonref = (ECObjectReference *)args[I]; 
objVisButton = ECReferenceObject(objVisButtonref, &data.focus); 

visual = ECObjectGetVisual(objVisButton, NULL); 

if (visual == NULL) 

{ 

VC_Error(' , visual was NULL\n"); 
retum(ECKeepAction); 

} 

visattribute = ECVisualGetVCAttribute(visual); 

ECVisualToVC (objVisButton, visual); 

ECObjectToVC(objVisButton); 
retum(ECKeep Action); 

) 

//+****** ********************************* *******************************// 
// Function: diCreateVisTextFunc 

//********** **************************************************** *********// 


int 

diCreateVisTextFunc(ECEvent *event, ECEventData data, ECAction *action) 

{ 

void **args = action ->parameters; 

ECVisual *visual; 

VCAttribute * visattribute; 

VCEntity *vistextent = NULL; 

objVisTextref = (ECObjectReference *)args[lj; 
objVisText = ECReferenceObject(objVisTextref, &data.focus); 

visual = ECObjectGetVisual(objVisText, NULL); 

if (visual == NULL) 

{ 

VC_Error( "visual was NULL\n"); 
retum(ECKeepAction); 

} 
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visattribute = ECVisualGetVCAttribute( visual); 

ECVisualToVC (objVisText, visual); 

ECObjectToVC(objVisText); 

retum(ECKeepAction); 

} 

yy************** ***************** ****** * ***** ************** *** ******* ****// 

//Function: ToolCreation_cb 

yy*********************** ************************************************// 


int ToolCreation_cb(TBTool *tool) 

{ 

SliderDataStruct * myData; 

printf("Setting up user Data structure.. An”); 

myData = (SliderDataStruct *)calloc(2, sizeof(SliderDataStruct)); 

TBGenSetUserData(tool, (void *)myData); 

} 

yy************* ***************************************** *****************// 

// Function: WidgetCreation_cb 

yy** ****** ***************************** **********************************// 


int WidgetCreation_cb(VWidget *newWidget, TBTool *tool, void *data) 

{ 

SliderDataStruct *myData; 

myData = (SliderDataStruct *)TBGenGetUserData(tool); 
if ((data != NULL) && (myData != NULL)) 

{ 

if ( !(strcmp<(char*)data, "LoadFact"))) 

{ 

printf("Got reference to LoadFact = Ox%x\n", newWidget); 
myData->LoadFact = newWidget; 
VWScalar_SetValue(myData->LoadFact, 1 00, FALSE); 

} 

if (!(strcmp((char*)data, "LoadDisp"))) 

{ 

printf("Got reference to LoadDisp = 0x%x\n", newWidget); 
my Data-> LoadDisp = newWidget; 
VWDigit_SetValue(myData->LoadDisp, 100, FALSE); 

} 

if (!(strcmp((char*)data, "ThreshFact”))) 

{ 

printf(”Got reference to ThreshFact = 0x%x\n M , newWidget); 
myData->ThreshFact = newWidget; 
VWScalar_SetValue(myData->ThreshFact,0, FALSE); 

} 

if (!(strcmp((char*)data, "ThreshDisp"))) 

{ 

printf("Got reference to ThreshDisp = 0x%x\n", newWidget); 
myData->ThreshDisp = newWidget; 
VWDigit_SetValue(myData->ThreshDisp, 0, FALSE); 

} 

if (!(strcmp((char*)data, "ExagerFact"))) 

{ 

printf("Got reference to ExagerFact = 0x%x\n M , newWidget); 
myData->ExagerFact = newWidget; 
VWScalar_SetValue(myData->ExagerFact, 1 , FALSE); 

} 

if (!(strcmp((char*)data, "ExagerDisp"))) 

{ 

printf("Got reference to ExagerDisp = 0x%x\n", newWidget); 
myData->ExagerDisp = newWidget; 
VWDigit_SetValue(myData->ExagerDisp, 1, FALSE); 

} 

if (!(strcmp((char*)data, "ClrSclTop"))) 

{ 

printf("Got reference to ClrSclTop = 0x%x\n", newWidget); 
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myData->C1rSclTop = newWidget; 
VWScalar_SetValue(myData->ClrSclTop, 1 00, FALSE); 

} 

if (!(strcmp((char*)data, "ClrScITopDisp"))) 

{ 

printf("Got reference to ClrScITopDisp = 0x%x\n", newWidget); 
myData->ClrSclTopDisp = newWidget; 
VWDigit_SetValue(myData->ClrSclTopDisp, 100, FALSE); 

} 

if (!(strcmp((char*)data, "ClrSclBot"))) 

{ 

printfCGot reference to ClrSclBot = 0x%x\n", newWidget); 
myData->ClrSclBot = newWidget; 
VWScalar_SetVa]ue(myData->ClrSclBot,0, FALSE); 

} 

if (!(strcmp((char*)data, "ClrSclBotDisp”))) 

{ 

printf("Got reference to ClrSclBotDisp = 0x%x\n", newWidget); 
myData->ClrSclBotDisp = newWidget; 
VWDigit_SetValue(myData->ClrSclBotDisp, 0, FALSE); 


} 

} 

y^************* ^ ********************************* ************* ***********// 

// Function: UpdateSliderInfo_cb 

U****> t,m********** ***** ********************************************* *****// 


int UpdateSliderInfo_cb(VWidget *scalarWig, VWEventlnfo *info, void *data) 

< 

ECObject *obj; 

TBTool *thisTool; 
float32 newValue; 

SliderDataStruct *myData; 
char *calldata; 

if (!(thisTool = TBGenGetTool(data))) 

{ 

return; 

} 


calldata = (char *)TBGenGetCalldata(data); 

myData = (SliderDataStruct *)TBGenGet(JserData(thisTool); 

newValue = VWScalar_GetValue(scalarWig); 
if (!(strcmp((char*)calldata, "LoadFact”))) 

{ 

VWDigi t_SetValue(myData*>LoadDisp, (int)(new Value), FALSE); 

} 

if (!(strcmp((char*)calldata, "ThreshFact"))) 

VWDigit_SetValue(myData->ThreshDisp, (int)(newValue), FALSE); 

} 

if (!(strcmp((char*)calldata, "ExagerFact"))) 

{ 

VWDigi t_Set Value( myData- >Ex agerDi sp, (int)(newValue), FALSE); 

} 

if (!(strcmp((char*)calldata > "ClrSclTop"))) 

VWDigi t_SetValue(myData->ClrSclTopDisp, (int)(newValue), FALSE); 

} 

if (!(strcmp((char*)c alldata, "ClrSclBot"))) 

VWDigit_SetValue(myData->ClrSclBotDisp, (int)(newValue), FALSE); 


} 


} 


JJ* ***** sfc ** ****** * ******* ** ****** * ** ** * **** ** ********* ******* ** ********* *// 

// Function: Updates lider„cb 

y/************ ****************************************************** *****// 
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int UpdateSlider_cb(VWidget *scalarWig, VWEventlnfo *info, void *data) 

{ 

ECObject *obj; 
uint32 *eventld; 

TBTool *thisTool; 
float32 newValue; 

SliderDataStruct *myData; 
char *calldata; 

float32 delta,out_new; 

if ( !(thisTool = TBGenGetTool(data))) 

{ 

return; 

} 


calldata = (char *)TBGenGetCalldata(data); 

myData = (SliderDataStruct *)TBGenGetUserData(thisTool); 

newValue = VWScalar_GetValue(scalarWig); 

if (!(strcmp((char*)calldata, "LoadFact"))) 

{ 

VWDigit_SetValue(myData->LoadDisp, (int)(new Value), FALSE); 
floats->LoadFactor = (float32)(newValue)/100.0f; 
di_modify_FEM(); 

if (switches->meshdynmode==l) di_modify_Mesh(); 

di_modify_LoadSet(); 

di_modify_ConstraintSet(); 

} 

if (!(strcmp((char*)calldata, "ThreshFact"))) 

{ 

VWDigit„SetValue(myData->ThreshDisp, (int)(newValue), FALSE); 
floats->threshold = ((float32)(newValue)/100.0f); 
floats->out_vals[l] = floats ->abs max* floats ->threshold; 
di_modi fy_ClrScl( ) ; 
di_modify_FEM(); 

if (switches->meshdynmode==l) di_modify_Mesh(); 

} 

if (!(strcmp((char*)calldata, "ExagerFact”))) 

{ 

VWDigit_SetValue(myData->ExagerDisp, (int)(new Value), FALSE); 

floats->exager = (float32)(new Value); 

di_modify_FEM(); 

if (switches->meshdynmode==l) di_modify_Mesh(); 

di_modify_ConstraintSet(); 

di_modify_LoadSet(); 

} 

if (!(strcmp{(char*)calldata, "ClrSclTop"))) 

{ 

VWDigit_SetValue(myData->ClrSclTopDisp, (int)(newValue), FALSE); 
floats->clrscltop = (float32)(newValue)/100.0f; 
floats->out_vals[2]=floats->out_min+ 

(floats->clrscltop* 
(floats->out_max-floats->out_min)) ; 

di_modify_ClrScl(); 
di_updateclrscltxt(); 
di_modi fy_FEM () ; 

} 

if (!(strcmp((char*)c alldata, "ClrScIBot”))) 

{ 

VWDigit_SetValue(myData->ClrSclBotDisp, (int)(newValue), FALSE); 
floats->clrsclbot = (float32)(newValue)/100.0f; 
floats->out_vals[0]=floats->out_min+ 

(floats->clrsclbot* 

(floats->out_max-floats->out_min)); 

di_modify_ClrScl(); 

di_updateclrscltxt(); 

di_modify_FEM(); 


} 
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! 

H *** * ********************* * ** ***************** * ******** ***************** // 

U Function: SetSliders_cb 

U *** ****** ***** ****************** ************* **** **************** ****** jj 

int SetSliders_cb(ECObject *obj, VCBody *body, VCAttribute *limb, TBTool *tool) 

{ 

SliderDataStruct * myData; 

myData = (SliderDataStruct *)TBGenGetUserData(tool); 

VWScalar_SetValue(myData->LoadFact, 1 00, FALSE); 
VWDigit_SetValue(myData->LoadDisp, 100, FALSE); 
VWScalar„SetValue(myData->ThreshFact,0, FALSE); 
VWDigit_SetValue(myData->ThreshDisp, 0, FALSE); 
VWScalar_SetValue(myData->ExagerFact, 1 , FALSE); 
VWDigit_SetValue(myData->ExagerDisp, 1, FALSE); 
VWScalar_SetValue(myData->ClrSclTop,100, FALSE); 
VWDigit_SetValue(myData->ClrSclTopDisp, 100, FALSE); 
VWScalar_SetValue(myData->ClrSclBot,0, FALSE); 
VWDigit_SetValue(myData->ClrSclBotDisp, 0, FALSE); 

} 

^y************** ***************************************** ****************// 
H Function: ResetSliders_cb 

yy**************************** ******************** ***********************// 


int ResetSliders_cb(ECObject *obj, VCBody *body, VCAttribute *limb, TBTool *tool) 

{ 

SliderDataStruct *myData; 

myData = (SliderDataStruct *)TBGenGetUserData(tool); 

VWScalar_SetValue(myData->LoadFact,100, FALSE); 
VWDigit_SetValue(myData->LoadDisp, 100, FALSE); 
VWScalar_SetValue(myData->ThreshFact,0, FALSE); 
VWDigit_SetValue(myData->ThreshDisp, 0, FALSE); 
VWScalar_SetValue(myData->ExagerFact, 1 , FALSE); 
VWDigit_SetValue(myData->ExagerDisp, 1, FALSE); 
VWScalar_SetValue(myData->ClrSclTop, 100, FALSE); 
VWDigit_SetValue(myData->ClrSclTopDisp, 100, FALSE); 
VWScalar_SetVa!ue(myData->ClrSclBot,0, FALSE); 
VWDigit_SetValue(myData->ClrSclBotDisp, 0, FALSE); 

} 


/* PUBLIC FUNCTION DEFINITIONS ================= 

extern void RegisterScaleToolFunctions(void) 

{ 

TBRegisterToolCreationCallback("myToolCreation", 

ToolCreation_cb); 

TBRegisterGenericWidgetCreationCallbackCrnyWidgetCreation", 

WidgetCreation_cb); 

TBRegisterGenericWidgetCallback("UpdateSliderInfo M , 

UpdateSliderInfo_cb); 

TBRegisterGenericWidgetCallbackCUpdateSlider", 

UpdateSlider_cb); 

TBRegisterGenericObjectSelectCallback(' l setSliders M , 

SetSliders_cb); 

TBRegisterGenericObjectSelectCallbackC'resetSliders", 

ResetSliders_cb); 


yy**** *********************************************** ********** ******** **yy 
// Function: main 

yy* *************************************♦********************************// 
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int 

main (int argc, char **argv) 

{ 


extern void RegisterScaleToolFunctions(void); 

points=( Points *)malloc(sizeof(Points)); 
switches=(Switches *)malloc(sizeof(Switches)); 
floats=(Floats *)malloc(sizeof(Floats)); 
chars=(Chars *)malloc(sizeof(Chars»; 
vcfloats=(VCfloats *)malloc(sizeof(VCfloats)); 

i ntersecti onReportData= ( V C Intersec ti o n Report Data *)malloc(sizeof(VCIntersectionReportData)); 
objFEM=(ECObject *)malloc(sizeof(ECObject)); 

objFEMref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objMesh=(EC Object *)malloc(sizeof(ECObject)); 

objMeshref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objFEMText=(ECObject *)malloc(sizeof(ECObject)); 
objFEMTextref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objClrScl=(ECObject *)malloc(sizeof(ECObject)); 

objClrSclref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objClrSclGrid=(EC Object *)malloc(sizeof(ECObject)); 

objClrSclGridref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objViewButton=(ECObject *)malloc(sizeof(ECObject)); 

objViewButtonref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objViewText=(ECObject *)malloc(sizeof(ECObject)); 

objViewTextref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objDataButton=(EC Object *)malloc(sizeof(ECObject)); 

objDataButtonref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objDataText=( EC Object *)malloc(sizeof(ECObject)); 

objDataTextref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 
objVisButton=(ECObject *)malloc(sizeof(ECObject)); 

objVisButtonref=(ECObjectReference *)malloc(sizeof(ECObjectReference»; 
objVisText=(ECObject *)malloc(sizeof(ECObject)); 

objVisTextref=(ECObjectReference *)malloc(sizeof(ECObjectReference)); 

femtextstring=(VCGeometry *)malloc(sizeof(VCGeometry)); 
clrscltextstring=(VCGeometry *)malloc(sizeof(VCGeometry)); 

switches ->navstate= 1 ;//navmode 
switches->navmode=2;//navmode 
switches->set 1 =0;//set 1 
switches->set2=0;//set2 
switches->picknode=0;//picknode 
switches->meshdynmode= 1 ;//meshdynmode 

switches->outtypenum=0;//0 is node type output, I is element type output 

switches->outsubnum=Oy/node or element subtype index (0-4) in output array 

switches->animmode= 1 ; 

switches ->startanim=- 1 ^/meshdynmode 

switches->loadcasestate=0; 

switches->constraintstate=0; 

floats -> Load Factor= 1 .0; 
floats ->exager=l .0; 
floats->threshold=0.0; 
floats ->beamdelta= 1 00; 
floats->xyzmax=0.0; 
fioats->absmax=0.0; 
floats ->out_min= 1 00000; 
floats->out_max=-l 00000; 


floats->clrscltop=l .0; 
floats->clrsclbot=0.0; 
floats->femsclbotl[0]= 0.0; 

floats->femsclbotl[l]= 0.0; 

floats->femsclbotl[2]= 0.0; 

floats->femsclbotr[0]= .03; 

floats->femsclbotr[l]= 0.0; 

floats->femsclbotr[2]= 0.0; 

floats->femscltopr[0]= .03; 

floats->femscltopr[ 1 ]= . 294 ; 
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floats->femscltopr[2]= 0.0; 

floats->femscltopl[0]= 0.0; 

floats->femscltopl[l]= .294; 

floats->femscltopl[2]= 0.0; 

floats->alphainmg= 1.0; 


floats- >alphath res h= 0.7; 
floats->alphaoutmg= 0.0; 

vcfloats->posmaxcolor[0]= 1 .0;//red 
vcfloats->posmaxcolor[ 1 ]= 0.0; 

vcfloats->posmaxcolor[2]= 0.0; 
vcfloats->posmincolor[0]=l .0;//yellow 
vcfloats->posmincolor[l]= 1.0; 
vcfloats->posmincolor[2]= 0.0; 
vcfloats->negmincolor[0]=0.0;//greenblue 
vcfloats->negmincolor[ 1 ]= 1.0; 

vcfloats->negmincolor[2]= 1 .0; 
vcfloats->negmaxcolor[0]=0.0;//green 
vcfloats->negmaxcolor[l]= 1.0; 
vcfloats->negmaxcolor[2]= 0.0; 
vcfloats->posthreshcolor[0]=0.5;//white 
vcfloats->posthreshcolor[l]= 0.5; 
vcfloats->posthreshcolor[2]= 0.5; 

vcfloats->negthreshcolor[0]=1.0y/white 
vcfloats~>negthreshcolor[ 1 ]= 1 .0; 

vcfloats->negthreshcolor[2]= 1.0; 

vcfloats->outofrngcolor[0]=0.0;//black 
vcfIoats->outofmgcolor[l]= 0.0; 
vcfloats->outofmgcolor[2]= 0.0; 

chars->outtxt[200]= M "; 
chars->scltxt[200]=" "; 

ucf_fem2vr(); 

ECUserActionFuncRegister(diCreateFEMObjectFunc,"diCreateFEMObjecf\ 

"Converts FEM output files into objects", 

ECDataTypeObject, "ObjectName", 

ECDataType Float Var, "ObjectScale", 

ECDataTypeNull); 

ECUserActionFuncRegisteridiCreateFEMMeshFunc/'diCreateFEMMesh", 

"Creates FEM wireframe mesh", 

ECDataTypeObject, "ObjectName", 
ECDataTypeFloatVar, "ObjectScale", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateFEMTextFunc,"diCreateFEMText\ 

"Creates an dynamic text visual in femtext", 

ECDataTypeObject, "femtext", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateClrSclTextFunc,"diCreateClrSclText", 

"Creates an dynamic color scale number visual in clrscltext", 
ECDataTypeObject, "clrscltext", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateColorSclFunc,"diCreateColorScr, 

"Creates an color scale visual in femscale", 

ECDataTypeObject, "colorscale", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateColorSclGridFunc,"diCreateColorSclGrid", 

"Creates an color scale grid visual in femscalegrid", 

ECDataTypeObject, "colorgrid", 

ECDataTypeNull); 

ECUserActionFuncRegister(diToggleAnimFunc,"diToggieAnim", 

"Toggles animation of FEM on and off', 

ECDataTypelntVar, "StartAnim", 

ECDataTypeNull); 

ECUserActionFuncRegister(diToggleAnimModeFunc,"diToggleAnimMode", 

"Toggles animation mode from Sawtooth to Ramp", 

ECDataTypelntVar, "AnimMode", 
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ECDataTypeNull); 

ECUserActionFuncRegister(diImmersDataFunc, "dilmmersData", 

"Get data at intersection point", 

ECDataTypeString, "bodyPart", 

ECDataTypeEvent, "Event", 

ECDataTypeObject, "FEMObj", 

ECDataTypeNull); 

ECUserActionFuncRegister(diBodyStartupPosFEMFunc, "diBodyStartupPosFEM", 

"Set StartUp Body Position FEM Viewpoint", 

ECDataTypeNull); 

ECUserActionFuncRegister(diBodyMoveToFunc, "diBodyMoveTo", 

"Moves the body to a given viewpoint at a given speed", 

ECDataTypelntVar, "ViewNumber", 

ECDataTypeFloatVar, ”speed(m/s)", 

ECDataTypeNull); 

ECUserActionFuncRegister(diNavModeFunc,”diNavMode", 

"Sets navigation mode parameter", 

ECDataTypelntVar, "navmode", 

ECDataTypeNull); 

ECUserActionFuncRegister(diSetViewFunc,"diSetView", 

"Sets user defined viewpoints", 

ECDataTypelntVar, "viewnum”, 

ECDataTypeNull); 

ECUserActionFuncRegistertdiToggleMeshDynFunc/’diToggleMeshDyn", 

"Sets navigation mode parameter", 

ECDataTypelntVar, "meshdynmode", 

ECDataTypeNull); 

ECUserActionFuncRegister(diOutputSetFunc,"diOutputSet'\ 

"Sets FEM output data set", 

ECDataTypelntVar, "outtypenum", 

ECDataTypelntVar, "outsubnum", 

ECDataTypeNull); 

ECUserActionFuncRegister(diInsideTrakInitFunc,"diInsideTrakInit", 

"Initializes Polhemus InsideTrak with MetaTrak Driver", 

ECDataTypeNull); 

ECUserActionFuncRegister(diSynchPartTrackFunc,"diSynchPartTrack", 

"Enables Synch Tracking of Named Body Part", 

ECDataTypeString, "BodyPart", 

ECDataTypeNull); 

ECUserActionFuncRegister(diToggleNavStateFunc,"diToggleNavState", 

"Toggles navigation mode from No HeadTrack to HeadTrack", 

ECDataTypelntVar, "NavState", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateLoadObjectsFunc,"diCreateLoadObjects", 

"Creates load case objects". 


ECDataTypeNull); 

ECUserActionFuncRegisteddiToggleLoadFunc/’diToggleLoad", 

"Toggles loadcase visual", 

ECDataTypelntVar, "Load CaseS tate", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateConstrObjectsFunc,"diCreateConstrObjects H , 

"Creates constraints objects". 


ECDataTypeNull); 

ECUserActionFuncRegisterldiToggleConstrFunc/'diToggleConstr", 

"Toggles constraints visual", 

ECDataTypelntVar, "ConstrCaseState”, 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateViewButtonFunc,"diCreateViewButton", 
"Creates a View button attached to viewpoint", 

ECDataTypeObject, "viewbutton", 
ECDataTypeNull); 

ECUserActionFuncRegister(diCreateViewTextFunc,"diCreateViewText", 

"Creates a View text attached to viewpoint", 

ECDataTypeObject, "viewtext", 

ECDataTypeNull); 

ECUserActionFuncRegister(diCreateDataButtonFunc,"diCreateDataButton", 
"Creates a Data button attached to viewpoint", 

ECDataTypeObject, "databutton", 
ECDataTypeNull); 

ECUserActionFuncRegisterfdiCreateDataTextFunc/’diCreateDataText”, 
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’’Creates a Data text attached to viewpoint", 

EC DataT y peObj ec t , "datatext", 
ECDataTypeNull); 

ECUserActionFuncRegister(diCreateVisButtonFunc,"diCreateVisButton'\ 
"Creates a Visualize button attached to viewpoint", 
ECDataTypeObject, "visbutton”, 
ECDataTypeNull); 

ECUserActionFuncRegister(diCreateVisTextFunc,"diCreateVisText'\ 
"Creates a Visualize text attached to viewpoint", 
ECDataTypeObject, "vistext", 
ECDataTypeNull); 

RegisterScaleToolFunctionsO; 

VC_AttachBodyCreateCallback (di_create_body_handler, NULL); 

dVISE_Initialise(argc,argv); 

VC_MainLoop{); 

} 
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ff***********************************************************************// 

DVET Release 2.2/1 1/98 for WindowsNT Workstation 
fm2vrl 120.h 
1 1 February 1998 
Copyright 1998 

Dual Incorporated/University of Central Florida 


typedef struct NODE_DATA 

{ 

long int A; 
double x; 
double y; 
double z; 
double dx; 
double dy; 
double dz; 

double output_data[5]; 
//add in Oct., 1997 

int H; 

//add in Oct., 1997 
} NODE.DATA; 

typedef struct ELEMENT_REL 

{ 

long int A; 
double data[5]; 

} ELEMENT_REL; 


typedef struct ELEMENT_D AT A 

{ 

long int A; 
long int B [4] ; 

double C[5]; 
long int D; 

//revised on Sept 30, 1997 

//E is the index for internal element (default) and zero for surface element 
int E; 

//F is an index to reference the element property 
int F; 

//revised on Sept 30, 1997 

} ELEMENT_DAT A ; 

//revised on Sept 30, 1997 
typedef struct ELEMENT_PROPERTY 
{ 

//A is the type of element 
int A; 

//revised in Oct., 1997 
int H^/for material id. 

//revised in Oct., 1997 

//B is the element properties, according to the manual of FEM AP neutral file 
double B[ 100]; 

} ELEMENT_PROPERTY; 

//above are revised on Sept 30, 1997 

typedef struct NAMES 

{ 

char actual_case_name[30]; 
char actual_set_name[10][30] , 

} NAMES; 

//revised in Oct. ,1997 
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typedef struct MATERIAL 

{ 

int A; 

char title[25] ; 

double Young_Modulus[3]; 
double Shear_ModuIus[3]; 
double Poisson_Ratio[3]; 
double GMatrix[2 1 ] ; 
double alpha[6]; 
double k[6] ; 

double thermal_cap,density,damping,temperature; 
double tension Jimit[2]; 
double comp_limit[2], 
double shear_limit; 

} MATERIAL; 

If 

typedef struct CONSTRAINT 

{int A; 

char B[25]; 

long int NUM; 

fpos_t file_constraint; 

long int * ID; 

int * INDEX; 

} CONSTRAINT; 

typedef struct COORDINATE 

{ 

int A J/id 
int B; //id of 
int C;//type 
char D[25]; 

double E[3] ^/origin coordiantes 
double F[3];//rotation angles 
} COORDINATE; 

typedef struct LOAD 

{ 

int SET_ID; 
char NAME[25]; 
fpos_t load_fiIe,nt_file,et_file; 
long int NUM,NT_NUM,ET_NUM ; 
long int *ID,*NT_ID,*ET_ID; 
int *TYPE,*FACE; 

double * VALUE, *NT_VALUE,*ET_VALUE; 

} LOAD^/the default limitation for load set number is 100 


//revised in Oct., 1997 

extern struct NODE_DATA *NODE_P; 
extern struct ELEMENT_DATA *ELEMENT_P; 
extern struct NAMES * names; 

//revised in Oct., 1997 

extern struct MATERIAL *MATERLAL_P; 
extern struct COORDINATE * COORD IN ATE_P; 
extern struct CONSTRAINT CONSTRAINT_SET[ 100]; 
extern struct LOAD LO AD_SET[ 1 00] ; 

//revised 16 Jan 98 

extern long int NODE_NUM,ELEMENT_NUM,LOADSET_NUM,LOADSET_PICK, 
CONSTRAINTSET_NUM,CONSTRAINTSET_PICK; 

//revised 16 Jan 98 
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jj% ********** 4 ********************** *44 4 4 ****** 4 ************************ *// 

DVET Release 2.2/1 1/98 for WindowsNT Workstation 

fm2vrwin.c 

1 1 February 1998 

Copyright 1998 

Dual Incorporated/University of Central Florida 

26/12/97 Ola Fakinlede Added gui prompt for file input 

if 

U* * * * * ************************* * *************** * *********************** *u 


#include "stdio.h" 

#include "string. h" 

#include "malloc.h" 

#include "process. h" 

#include "stdlib.h" 

//********************** u ser defmed header file **********************// 


#include "fm2vrl 120,h" 

^ 4 #* 4 * 4 ****** 44 * 4444***4 44 ** 4 * 4444 * 444444 * 4 * 44 * 44 * 4***4 4 * 4*444 4 * 444 ** 4 * 4 // 


struct NODE_DATA *NODE_P; 

struct ELEMENT_DATa *ELEMENT_P; 

struct NAMES *names; 

struct MATERIAL *MATERIAL_P; 

struct COORDINATE *COORDINATE_P; 

struct LOAD LOAD_SET[100]; 

struct CONSTRAINT CONSTRAINT_SET[100]; 

struct ELEMENT.REL *ELEMENT_TMP; 

struct ELEMENT_D AT A *ELEMENT_INF; 

struct ELEMENT.PROPERTY *ELEMENT_PROPERTY_P; 


NODE_NUM,ELEMENT_NUMl,ELEMENT_NUM,output_set_num > LOADSET_NUM,LOADSET_PICK,CONSTRAINTSET_NU 

M,CONSTRAINTSET_PICK; 
long int u; 

long int IA,IB,IC,IE; 
int ELEMENT_PRO_NUM ; 
int MATERIAL_NUM; 
int CONSTRAINT.NUM; 
int COORDINATE.NUM; 
int LOAD_NUM; 

//4*444*4*4*4**4**4 44***44 4 44 44p unc tj 0n Prototypes* ************* 44**444*4*/ 

int compare(long int ELEMENT_i,long int NODE_i); 
long int FindNid(long int u); 
long int FindEid(long int u); 

^*********************************E x temal Declarations **** ******* *44*4*4/ 


extern char *file_prompt(); ff Function that calls file prompt 

extern char *bool_prompt(char *); if Function that calls bool prompt 

extern char *case__prompt(char set_name[3000][30], int); ft Function that calls case prompt 

extern char **output_data_prompt(char temp_name[2000][40], int); ff Function that calls output data prompt 

extern char *loadset_prompt(char loadset_names[100][30], int); ft Function that calls load prompt 

extern char *constraintset_prompt(char constraintset_names[100][40], int); ff Function that calls constraint prompt 

U *** ********************************************** ************** ****♦♦**// 

if Function: ucf_fem2vr 

// Purpose: The function main reads the FEMAP file and stores information 
// into various data blocks. 

Z/**************** ******************************************* 44**44*4*4*4// 


void ucf_fem2vr(void) 

{ long int CHECKD,NODE_i,ELEMENT_i,CHECKDD,case_set_num[2000], q; 

char set_name[ 3000] [30] ,temp_set_name[ 2000] [30] ,ou t„set_name[2000] [30] , temp_name[2000][40]; 
char buffer[200]; 


E- 194 



double X,Y,Z,T1ME[2000],MAX_VALUE[2000],MIN_VALUE[2000],AMAX_VALUE[2000]; 

long int NODE_NUM_S, ELEMENT_NUM_S; 
long int ID[20],Total_num[2000],case_num[2000]; 
int flag, 

flag_open_file = 0, // Flag indicating open file 

flag_solid = 0, // Flag indicating solid 

LOAD_YES = 0, // Flag indicating yes to load loads 

CONSTRAINT. YES = 0; // Flag indicating yes to load constraints 


FILE *NEU_INP; 

FILE *fp,*fpl,*fp2, *fp_load, *fp_constraint; 

FILE *tmpl,*tmp2; 

int V_NUM = 5,U_NUM = 5; 

int FLAG,ID_BLOCK,CHECK,TYPE[2000],V[5],U[5],case_n; 
int i,CHECKl,II,case_i,case_nn, r; 
int 11,12,13,14; 


fpos_t File_node,file_element,file_output[2000]; 
fpos.t file_pro; 

fpos.t file_mat,file_coordinate; 
char * filename; 
char *bool; 
char gui_name[3]; 
char *case_name; 
char case_names[3000][30]; 
char **output_data = NULL; 
int j = 0, m = 0, k = 0; 
char *loadset_name; 
char loadset_names[100][30]; 
char *constraintset_name; 


// FEMAP Neutral File 
// YES or NO 

// Name id for gui 
// case name 

// set.name without carriage return 
// output data 

// load name 

// loadset.name without carriage return 
// constraint name 


char constraintset_names[ 1 00] [40] ; 


// constraintset.name without carriage return 


H* ** **************** *****open neutral file**** *************** * ♦ ****// 


while(flag_open_file == 0){ 

filename = file_prompt(); 


} 


if(stmcmp(filename, "cancel", 6) = 0) 
exit(l); 

if(* filename == NO 1 ) 
continue; 

else if((NEU_INP = fopen(filename, "r+")) != NULL) 
flag_open_file = 1 ; 


jj * ******** ******************************************** ********* ********11 

U Check FEMAP neutral file 

II **** ****************************************************** *************// 


FLAG = 1; 

while(( !feof(NEU_INP)) && (FLAG = !)) 

{ 

fscanf(NEU_INP/’%d\&CHECK); 

fgets (buffer, 200, NEU.INP); // Move the file pointer 

if((CHECK==- 1 )&&(FLAG==1» 

{ 

fscanf(NEU_INP,"%d",&ID_BLOCK); 

fgets(buffer,200,NEU_INP); 

switch(ID_BLOCK) 

{ 

case 100: 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP,"%d u ,&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK==-l) 

{ 

FLAG=1; 
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} 

break; 

case 405: 

fgetpos(NEU_INP,&file_coordinate); 

COORDINATE_NUM=0; 

label405: 

fscanf(NEU_INP, ,, %d",&CHECK); 

if(CHECK!=-I) 

{ 

COORDINATE_NUM=COORDINATE_NUM+l ; 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_INP); 

fgets(buffer,200,NEU_INP); 

goto label405; 


FLAG=1; 

break; 

case 475: 

//***********p rocess t he t ex t information********************// 
label475: 

fscanf{NEU_INP, ,, %d ,l ,&CHECK); 

if(CHECK!=-l) 


case 410: 


for(i=0;i<4;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP 7 "%d ,, ,&II); 

for(i=0;i<=II;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto label475; 

} 

FLAG= 1 ; 
break; 

//**** *******p rocess ^ variable information********************// 
label410: 

fscanf(NEU_INP,"%d ll ,&CHECK); 

if(CHECK!=-l) 

{ 

for(i=0;i<4;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto Iabel410; 


FLAG=1 ; 
break; 

case 413: 

^***********p rocess t h e i a yer information********************// 
label413: 

fscanf(NEU_INP, ,, %d”,&CHECK); 

if(CHECK!=-l) 


{ 

fgets{ b u ffer, 2 00, NEU_INP) ; 
fgets(buffer,200,NEU_INP); 
goto label413; 


FLAG=1 ; 
break; 

case 470: 

//***********p rocess t he point information********************// 
labe!470: 

fscanf(NEU_IN P, " %d " , &CHEC K) ; 
if(CHECK!=-l) 

{ 

fgetsf buffer, 200, NEU_1NP); 
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goto label470; 


} 

FLAG=1 ; 
break; 

case 47 1 : 

^***********p rocess t he curve information********************// 
label47 1 : 

fscanf(NEU_INP,"%d‘\&CHECK); 

if(CHECK!=-l) 

{ 

for(i=0;i<4;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto label47 1 ; 

} 

FLAG=1; 

break; 

case 472: 

^***********p rocess t he sur f aC e information********************// 
label472: 

fscanf(NEU_INP,"%d , ’,&CHECK); 

if(CHECK!=-l) 

{ 

for(i=0;i<3;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto label472; 

} 

FLAG= 1 ; 
break; 

case 473: 

yy***********p rocess t he volume information********************// 
label473: 

fscanf(NEU_INP,"%d'\&CHECK); 

if(CHECK!=-l) 

{ 

for(i=0;i<3;i++) 

{ 

fgets(buffer,200,NELLINP); 

1 

goto labe!473; 


FLAG=1 ; 
break; 

case 474: 

^***********p rocess the boundary information********************// 
label474: 

fscanf(NEU_INP,"%d",&CHECK); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_INP) ; 
goto label474; 

} 

FLAG=l; 

break; 

case 401: 

//***********p rocess t h e material information********************// 

MATERIAL_NUM=0; 

fgetpos(NEU_INP,&file_mat); 

label40I: 

fscanf(NEU_INP/’%d\&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

{ 

MATERIAL_NUM=MATERIAL_NUM+1 ; 
for(i=0;i<32;i++) 
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fgets(buffer,200,NEU_INP); 


} 

goto label401 ; 

} 

FLAG=1 ; 
break; 

case 402: 

^***********p rocess t he property information ******* 3 * ************// 

ELEMENT_PRO_NUM=0; 

fgetpos(NEU_INP,&file_pro); 

label402: 

fscanf(NEU_lNP,"%d",&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-i) 

{ 

ELEMENT_PRO_NUM=ELEMENT_PRO_NUM+ 1 ; 

fgets(buffer,200,NEU_INP) ; 

fgets (buffer, 200, NEU_INP); 

fscanf(NEU_INP,"%d",&II); 

fgets (bu ffer, 200 , NEU_INP) ; 

for(i=0;i<(float)(IV8)+ 1 .0;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEUJNP,"%d",&II); 
fgets(buffer,200,NEU_INP); 
for(i=0;i<(float)(II/5)+l .0;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto labe!402; 


FLAG=1 ; 

break; 

case 403: 

NODE_NUM=0; 

fgetpos(NEU_INP,&file_node); 

//********** *p rocess t h e node information********************// 
label403: 

fscanf(NEU_INP,"%d/,&CHECK); 

if(CHECK!=-l) 

{ 

fgets(buffer,20O,NEU_INP); 
NODE_NUM=NODE_NUM+l ; 
goto label403; 

} 

FLAG=1 ; 

break; 

case 404: 

fgetpos(NEU_INP,&file_element); 

ELEMENT_NUM=0; 

ELEMENT_NUM t =0; 

^t*********:^^^ t h e element information********************// 
label404: 

fscanf(NEU_INP,"%dA&CHECK); 

if(CHECK!=-l) 

{ 

fscanf(NEU_rNP, M %d,%d,%d,%d,",&Il,&I2,&I3,&I4); 

switch(I4) 

{ 

case 0: 

ELEMENT_NUM==ELEMENT_NUM+1 ; 
break; 

case 2: 

ELEMENT_NUM=ELEMENT_NUM+1 ; 
break; 

case 3: 
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yy********************* 


case 4: 
case 5: 
case 6: 

case 7: 

case 8: 

case 9: 
case 10: 

case 1 1 : 

case 12: 

case 13: 
} 


ELEMENT_NUM=ELEMENT_NUM+1 ; 
break; 

ELEMENT_NUM=ELEMENT_NUM+ 1 ; 
break; 

ELEMENT_NUM=ELEMENT_NUM+l ; 
break; 

flag_solid = 1 ; 

ELEMENT_NUM =ELEMENT_NUM +4 ; 
break; 

flag_solid = 1 ; 

ELEMENT_NUM=ELEMENT_NUM+5; 

break; 

flag_solid = 1 ; 

ELEMENT_NUM=ELEMENT_NUM+6; 

break; 

flag_solid = 1 ; 

ELEMENT_NUM=ELEMENT_NUM+4; 

break; 

flag_solid = 1 ; 

ELEMENT_NUM=ELEMENT_NUM+5; 

break; 

flag_solid = 1 ; 

EIJSMENT_NUM=ELEMENT_NUM+6; 

break; 

break; 


ELEMENT.NUM 1 =ELEMENT_NUM 1 + 1 ; 
for(i = 0; i < 7; i++) 

{ 

f gets (buffer, 200, NEU_INP); 

} 

if(I4 == 13) 

{ 

CHECKD=0; 
while(CHECKD != -1) 

{ 

fscanf(NEU_INP; , %ld,“\&CHECKD); 

fgets(buffer,200,NEU_INP); 


goto label404; 

} 

FLAG=1 ; 
break; 

CONSTRAINT INFORMATION *«**************************// 

case 406: 

CONSTRAINT_NUM = 0; 
label406: 

if(CONSTRAINT_NUM > 100) 

printffThe number of constraint sets exceeds the default value of 10O\n"); 
exit(0); 

) 

fscanf(NEU_INP,"%d,",&I 1 ); 
fgets(buffer,200,NEU_INP); 
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if(Il != -1) 

{ 

CONSTRAINT_SET[CONSTRAINT_NUM].A = II ; 
fgets(CONSTRAINT_SET[CONSTRAINT_NUM].B, 25, NEUJNP); 
CONSTRAINT_SET[CONSTRAINT_NUM].NUM = 0; 

fgetpos(NEU_INP,&(CONSTRAINT_SET[CONSTRAINT_NUM].file_constraint)); 

fscanf(NEU_INP/’%d/\&CHECKl); 


Iabel4061 : 

if(CHECKl != -1) 

{ 

CONSTRAINT_SET[CONSTRAINT_NUM].NUM= 

CONSTRAINT_SET[CONSTRAINT_NUM].NUM + I; 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP/%d/\&CHECK 1 ); 
goto labe!4061; 

} 

fgets(buffer,200,NEU__INP); 

fscanfCNEU.INP/^od^^&CHECKl); 

label4062: 

if(CHECKl != -1) 

{ 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d f \&II); 
goto label4062; 

} 

fgets(bu ffer, 200,NEU_INP) ; 
CONSTRAINT_NUM=CONSTRAINT_NUM+l ; 
goto label406; 

} 


FLAG=1 ; 
break; 

/y********** *********** LOAD INFORMATION *****************************// 

case 407: 


LOAD_NUM = 0; 
label407: 

fscanf(NEU_INP,"%d",&CHECK); // check for end of block 

fgets(buffer,200,NEU_INP); 

if(CHECK != -1) 

{ 

LOAD_SET[LOAD_NUM].SET_ID = CHECK; 
fgets(LOAD_SET[LOAD_NUM].NAME,25,NEU_INP); 


labe!407 1 : 


LOAD_SET[LOAD_NUM].NUM + 1; 


for(i=0;i<19;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fgetpos(NEU_INP,&(LOAD_SET[LOAD_NUM].load_file)); 
fscanf(NELLINP,"%d,",&CHECK 1 ); 
LOAD_SET[LOAD_NUM].NUM = 0; 

if(CHECKl != -1) 

{ 

LO AD_SET[ LOAD_NUM] .NUM = 

for(Il =0; II < 12; I1++) 

( 

fgets(buffer,200,NEU_INP); 

) 

fscanf(NEU_INP,"%d",&CHECK 1 ); 
goto label407 1 ; 

} 
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fgets(buffer,200,NEU_!NP); 
LOAD_SET[LOAD_NUM].NT_NUM =0; 
fgetpos(NEU_INP,&(LOAD_SET[LOAD_NUM].nt_file)); 
fscanf(NEU_INP,"%d,",&CHECKl); 


labe!4072: 

if(CHECKl != -1) 

( 

LOAD_SET[LOAD_NUM].NT_NUM = 

LOAD SET[LOAD_NUM].NT_NUM + 1; 

fgets(buffer, 200. NEUJNP); 
fscanf(NEU_INP, "%d.", &CHECK1); 
goto Iabel4072; 

) 

fgets(buffer,200,NEU_INP); 
LOAD_SET[LOAD_NUM].ET_NUM = 0; 
fgetpos(NEU_INP,&(LOAD_SET[LOAD_NUM].et_file)); 
fscanf(NEU_INP."%d.",&CHECKl); 

labe!4073: 

if(CHECKI!=-l) 

{ 


LOAD_SET[LOAD_NUM].ET_NUM=LOAD_SET[LOAD_NUM].ET_NUM+l; 

fgets(buffer.200,NEU_INP); 
fscanf(NEU_INP,"%d,”.&CHECK 1 ); 
goto label4073; 

( 

fgets(buffer,200,NEU_INP); 
LOAD_NUM=LOAD_NUM+ 1 ; 
goto label407 ; 


FLAG=1; 

break; 

//a.******************* Process the group information********************// 
label408: 

fscanf(NEU_INP,"%d",&CHECK); 
fgets(buffer,200,NEU_INP); 
if(CHECK !=- 1 ) 

{ 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP, ,, %d,”,&CHECK 1 ); 
while(CHECKl !=-l) 

{ 

fgets(buffer,200,NEU_lNP); 
fscanf(NEU_INP,”%d,",&CHECK] ); 

) 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP 1 "%d,”,&CHECKl); 
while(CHECK 1 !=- 1 ) 

{ 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d,”,&CHECK I ); 

) 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d,",&CHECKl); 
while(CHECK 1 !=- 1 ) 

( 

fgets(buffer,200,NEU_INP); 
fscanf(NEUJNP, ,, %d,",&CHEClCl ); 

} 

fgets(buffer,200,NEUJNP); 
fscanf(NEU_INP,"%d,".&CHECK 1 ); 
while(CHECK I !=- 1 ) 

( 

fgets(buffer,200,NEU_INP); 

fscanf(NEUJNP,"%d,'\&CHECKl); 

) 

fgets(bu ffer, 200,NEU_IN P) ; 
goto labe!408; 
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} 

FLAG=l ; 
break; 

case 409: 

^♦******* 3 «****** J | t #***p rocess t ^ e v j ew information********************// 

labeI409: 

fscanf(NEU_INP,"%d",&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_INP); 

for(i=0;i<9;i++) 

( 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP; , %d*\&II); 

fgets(buffer,200,NEU_INP); 

for(i=0;i<II;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

for(i=0;i<8;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP,"%d",&Il); 

fgets(buffer,200,NEU_INP); 

for(i=0;i<ll;i++) 

{ 

fgets(buffer,200,NEU_lNP); 

} 

for(i=0;t<4;i++) 

{ 

fgets(buffer,200,NEU_INP) ; 

} 

fscanf(NEU_INP, M %d M ,&II); 
fgets (b u ffer, 200, NEU_IN P) ; 
for(i=0;i<II;i++) 

{ 

fgets(buffer,200,NEU_INP); 

) 

fscanf(NEU_INP, M %d",&II); 
fgets( buffer, 200, NEU_INP); 
for(i=0;i<II;i++) 

{ 

fgets(buffer,200,NEU_INP) ; 

} 

for(i=0;i<3;i++) 

{ 

fgets(buffer,200,NEU_INP); 

) 

fscanf(NElMNP, M %d",&II); 
fgets(bu ffer, 200, NEIMNP); 
for(i=0;i<II-l ;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP; , %d ,, ,&CHECKl); 
fgets(buffer,200,NEU_INP); 
while(CHECKl !=-l) 

{ 

fscanf(NEU_INP,"%d",&CHECKl ); 
fgets(buffer,200,NEU_INP); 

} 

goto labe!409; 


case 41 !: 


FLAG= 1 ; 
break; 
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^*^ +:<e ****************p r Q Cess the Report Format 

information********************// 

labe!4 1 1 : 

fscanf(NEU_INP,"%d",&CHHCK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d",&II); 
fgets(buffer,200,NEU_INP); 
for(i=0;i<II- i ;i++) 

{ 

fgets(buffer,200,NEU_INP); 

) 

fscanf(NEUJNP,"%d'\&II); 
fgets(buffer,200,NEU_INP); 
for(i=0;i<II-l ;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto labe!41 1 ; 


FLAG=1 ; 
break; 

case 420: 

^*****#****^********p rocess ^ function information********************// 
label420: 

fscanf(NEU_INP, M %d”,&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

{ 

fgets(buffer,200,NEU_INP); 
fscanf(NEU_INP,"%d",&CHECK 1 ); 
if(CHECKl !=-l) 

{ 

fgets(buffer,200,NEU_INP); 

} 

goto labeI420; 


FLAG= I ; 
break; 

case 412: 

//**** #***************p rocess the active data information********************// 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP,"%d ,, ,&CHECK); 

fgets(buffer,200,NEU_INP); 

FLAG=1 ; 
break; 

case 450: 

case_i=0; 

label450: 

fscanf(NEU_INP,"%d’\&CHECK); 

fgets(buffer,200,NEU_INP); 

if(CHECK!=-l) 

{ 

case_i=case_i+l ; 

fgets(set_name[CHECK- 1 ] ,30,NEU_INP); 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP,"%lg",TIME+CHECK-l); 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP t "%d , \&Il); 

fgets(buffer,200,NEU_INP); 

for(i=0;i<ll ;i++) 

{ 

fgets(bu ffer, 200,NEU_IN P) ; 

} 

goto labe]450; 


FLAG=1 ; 
break; 
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case 451 : 


output_set_num=0; 

label45 1 : 

fscanf(NEUJNP/’%d'\&CHECK); 
fgets(buffer,200,NEU„INP); 
if(CHECK!=-l ) 

{ 

case_num[output_set_num]=CHECK; 

fgets(out_set_name[output_set_num],30,NEU_INP); 

fscanf(NEU_INP, ,, %lg,%lg,%lg , \MIN_VALUE+output_set_num, 

MAX_VALUE+output_set_num,AMAX_VALUE+outpuUset_num); 

fgets(buffer,200,NEU_INP); 
fgets(buffer,200,NEU_INP) ; 
fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP/ , %ld,%ld,%d > %d’\&CHECKD,&NODE_i,&Il,TYPE+output_set_num); 

fgets(buffer,200,NEU_INP); 

fgets(buffer t 200,NEU_INP); 

fgetpos(NEU_INP,file_output+output_set_num); 
output_set_num=output_set_num+ 1 ; 

ELEMENT_i=0; 
label45 1 1 : 

fscanf(NEU_INP,"%ld,'\&CHECKD); 

if(CHECKD!=-l) 

{ 

fgets(buffer,200,NEU_INP); 

ELEMENT_i=ELEMENT_i+ 1 ; 
goto label45 1 1 ; 

} 

fgets(buffer,200,NEU_INP); 

Total_num[output_set_num- 1 ]=ELEMENT_i ; 
goto labe!45 1 ; 


FLAG=- 1 ; 
break; 


} 

} 

dynamic memory for node data********************// 

NODE_P =(struct NODE_DATA *) malloc(NODE_NUM*(sizeof(NODE_DATA)+l)); 
if( NODE_P == NULL ) 

{ 

printf(" Insufficient memory available for node data\n” ); 
getcharO; 

} 

else{ 

printf("\n M ); 

dynamic memory for element data********************// 

Fl F.MF.NT TMP =(struct ELEMENT_REL *) calloc(sizeof(ELEMENT_REL),ELEMENT_NUMl); 
if( ELEMENT_TMP == NULL ) 

< 

printfC’ Insufficient memory available for element relation data\n" ); 
getchar(); 

} 

else{ 

printf("\n"); 

} 

^*^***+ S (c**^********** a ii oca tion dynamic memory for element p data********************// 

ELEMENT_P ^(struct ELEMENT_DATA *) calloc(sizeof(ELEMENT_DATA),ELEMENT_NUM); 
if( ELEMENTS == NULL ) 
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( 

printf(’* Insufficient memory available for element data\n’ ); 
getchar(); 


else{ 

printf("\n"); 

} 


^************ + ***********+****^*Coordinate Information******************// 


COORDINATE„P=( struct COORDINATE *)calloc(sizeof(COORDINATE),COORDINATE_NUM); 


if(COORDINATEJP==NULL) 

printf(" Insufficient memory for coordinate system data\n M ); 
getchar(); 

} 

fsetpos(NEU__INP,&file_coordinate); 
for(I2=0;I2<COORDIN ATE_NUM ;12++) 

I 

fscanf(NEU_INP,"%d’\&I 1 ); 

(COORDINATE_P+I2)->A=Il ; 

fscanf(NEU_INP, , \%d,%d",&((COORDINATE_P+I2)->B),&((COORDINATE_P+I2)->C)); 

fgets(buffer,200,NEU_INP); 

fgets((COORDINATE_P+I2)->D,25,NEU_INP); 


} 


for(I3=0;I3<3;I3++) 

fscanf(NEU_INP,"%lg,\&((COORDINATE_P+I2)->E[l3])); 

} 

fgets(buffer,200,NEU_INP); 

for(I3=0;I3<3;I3++) 

fscanf(NEU_INP,"%lg,'\&((COORDINATE_P+I2)->F[l3])); 

} 


^***********^********** ****** ♦♦♦♦♦♦Constraint Information************************// 


if(CONSTRAINT_NUM > 0) 

' strcpy(gui_name, "CBP"): 11 CPB name id of constraint 

boolean prompt . . . 

bool = booLprompt(guLname); » Prompt for loading constraint information 

into memory 


FLAG = I ; 
while(FLAG -= 1) 

( if(stmcmp(bool, "YES", 3) == 0) H If yes is pressed 

{ 

CONSTRAINT_YES = 1; 

for(12 = 0; 12 < CONSTRAINT_NUM; I2++) 

CONSTRAINT_SET[12].ID=(long int *)calloc(sizeof(long 

int),CONSTRAINT_SET[I2].NUM); 

CONSTR A1NT_SET[ 12] . lNDEX=(int 
*)calloc(sizeof(int),(CONSTRAINT_SET[I2].NUM)*6); 

if((CONSTRAINT_SET[12].ID==NULL)ll(CONSTRAlNT_SET[I2].INDEX==NULL)) 

printf(" Insufficient memory for data in constraint set #%d\n", 12+1 ); 
getchar(); 

} 


//* 


*************************** ********************************** **************// 
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fsetpos(NEUJNP,&(CONSTRAlNT_SET[l2].file_constraint)); 


for( 13 = 0; 13 < CONSTRAINT_SET[I2).NUM; I3++) 

1 


fscanf(NEU_INP,"%ld,%d,%d,%d,%d,%d,%d,%d,%d",(CONSTRAINT_SET[l2J.ID)+I3,&I4,&Il, 
CONSTRAINT_SET[ 12] . [NDEX+I3 *6,CONSTRAINT_SET[I2J. INDEX+(I3*6+1 ), 


CONSTRAINT_SET[I2].INDEX+(I3*6+2),CONSTRAINT_SET[I2].INDEX+(l3*6+3), 


CONSTRAINT_SET[I2].INDEX+(I3*6+4),CONSTRAINT_SET[l2].INDEX+(l3*6+5)); 

fgets(buffer,200,NEU_INP); 


} 


) 


FLAG=0; 

for(i = 0; i < CONSTRAINT_NUM; i++) 
strcpy(constraintset_names[i], CONSTRAINT_SET[i].B); 

constraintset_name = constraintsel_prompt(constraintset_names, CONSTRAINT_NUM); // 
Function that calls load set name prompt 

for(i = 0; i < CONSTRAINT_NUM; i++) H loop to 

find CONSTRAINTSET_PICK 

if(strcmp(constraintset_name, constraintset_names[i]) = 0) 

CONSTRAINTSET_PICK = i + 1; 

CONSTRAINTSET_NUM = CONSTRAINT_SET[CONSTRAINTSET_PICK] NUM; 

} 

else if(stmcmp(bool, "NO'*, 2) == 0) // If no is pressed 

{ 

FLAG = 0; 

} 

} 

} 

yy* ************************************************************ ******** **#****yy 


MATER IAL_P=(struct MATERIAL *)calloc(sizeof(MATERIAL),MATERIAL_NUM); 
if(MATERIAL_P=NULL) 

{ 

printfC Insufficient memory for material data\n"); 
getchar(); 

} 

fsetpos(NEU_INP,&file_mat); 

for (I2=0;I2<MATERIAL_NUM;I2++) 

{ 

fscanf(NEU_INP,"%d’\ &I1); 
fgets(buffer,200,NEU_INP); 

{ 

(MATER IAL_P+I2)->A=I1 ; 
fgets((MATERIAL_P+I2)->title,25,NEU_INP); 

for(l3=0;I3<3;I3++) 

fscanf(NEU__INP,"%lg,",&((MATERIAL_P+I2)->Young_Modulus[I3])); 

} 

for( 13=0; I3<3 ;I3++) 

fscanf(NEU_INP, ,, %lg,'\&((MATERIAL_P+I2)->Shear_Modulus[I3])); 

} 

for( 13=0; I3<3 ; I3++) 

fscanf(NEU_INP,"%lg,’\&((MATERIAL_P+I2)->Poisson„Ratio[I3])); 

} 

for(I3=0;I3<2I ;I3 -h-> 

< 
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fscanf(NEU_INP,"%lg,",&((MATERiAL_P+I2)->GMatrix[I3])); 

) 

for(I3=0;!3<6;I3++) 

{ 

fscanf(NEU_INP,"%lg;',&((MATERIAL_P+12)->a]pha[I3]»; 

} 

for(13=0;I3<6;I3++) 

{ 

fscanf(NEU_INP; , %lg,",&((MATERIAL_P+I2)->k[I3])); 

} 

fscanf(NEUJNP/'%lg,%lg,%lg,%lg/\&((MATERIALJ > +12)->thermal_cap), 

&((MATERIALJ 5 +I2)->density),&((MATERIAL_P+I2)->damping),&((MATERIAL_P+I2)- 

>temperature)); 

fscanf(NEU_INP, M %lg,%Ig,%lg,%lg,%lg "♦ &((MATERIAL_P+I2)->tensionJimit[0]), 

&((MATERIAL_P+I2)->tension_limit[l]),&((MATERIAL_P+I2)->comp_limit[0]), 
&((MATERIAL_P-fI2)->comp_limit[ I]),&((MATERIAL_P+I2)->shear_limit)); 

for(I3=0;I3<17;I3++) 

{ 

fgets(buffer,200,NEU_INP); 

} 


^t************ *************************** *ljond Information********************// 
if(LOAD_NUM > 0) 

I 

strcpy(gui_name, "LBP"); 

bool = bool_prompt(gui_name); M Prompt for loading constraint information 

into memory 

FLAG=1; 

while(FLAG==l) 

{ 

if(stmcmp(bool, "YES”, 3) = 0) 

I 

LOAD_YES= 1; 

for(Il = 0; II < LOAD.NUM; I1++) 

{ 

if(LOAD_SET[Il].NUM !=0) 

( 

LOAD_SET[Il].ID = (long int *)calloc(sizeof(long 

int),LOAD_SET[Il].NUM); 

if( LOAD_SET[ II]. ID = NULL) 

{ 

printfC' Insufficient memory for data in load set #\n'\Il + l); 
getchar(); 

} 

LOAD_SET[Il].TYPE=(int *)calloc(sizeof(int),LOAD_SET[Il].NUM); 

if(LOAD_SET[ 1 1 ] TYPE==NULL) 

{ 

printf("lnsufficient memory for data in load set #\n",Il+l); 
getchar(); 

LOAD_SET[Il].FACE=(int *)ca!loc(sizeof(int),(LOAD_SET[Il].NUM)*6); 

if(LOAD_SET[ 1 1 ] FACE==NULL) 

prints*' Insufficient memory for data in load set #\n",Il + l); 
getchar(); 

} 

LOAD_SET[l 1 ].VALUE=(double 

*)calloc(sizeof(double),(LOAD_SET[Il].NUM)*8); 

if(LO AD_SET[ 1 1 ] . V ALUE==NULL) 

{ 

printf(" Insufficient memory for data in load set #\n'\ll + l); 
getchar(); 
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} 

II * ****** * ************************************** * * * ********** **************** *ff 

fsetpos( NEU_INP,&(LOAD_SET[ 1 1 ] load_file)); 

for(CHECKD = 0; CHECKD < LOAD_SET[ll J.NUM; CHECKD++) 

' fscanf(NEU_INP.’ , %ld,%d",LOAD_SET[Il].ID + CHECKD, 

LOAD_SET[Il].TYPE + CHECKD); 

fgets(buffer,200,NEU_INP); 

fscanf(NEU_INP,"%lg,%lg",LOAD_SET[Il].VALUE+(CHECKD*8),LOAD_SET[ll].VALUE+(CHECKD*8+l)); 

fgets(buffer,200,NEU_INP); 

for (CHECK 1 =0; CHECK! <6;CHECK1++) 

( 


fscanf(NEU_INP,"%d,%lg",LOAD_SET[Il]. 

+CHECK1)); 


FACE+(CHECKD*6+CHECK 1 ),LOAD_SET[ 1 1 ] . V ALUE+(CHECKD* 8+2 
fgets(buffer,200,NEU_INP); 


} 


for(I4 = 0;I4 < 4; I4++) 

< 

fgets(buffer,200,NEU_!NP); 

) 


) 


} 


if(LOAD_SET[Il].NT_NUM !=0) 

LOAD_SET[Il].NT_ID=(long int *)cal!oc(sizeof(long 

int),LOAD_SET[ 1 1 ].NT_NUM); 

if(LOAD_SET[Il].NT_ID=NULL) 

printf("lnsufficient memory for data in load set #\n",Il+l); 
getchar(); 

} 

LOAD_SET[ll ].NT_VALUE=(double 

*)calloc(sizeof(double) 1 LOAD_SET[Il].NT_NUM); 

if(LO AD_SET[1 1 ] .NT_VALUE==NULL) 

printf("Insufficient memory for data in load set #\n'\Il+l ); 
getchar(); 

} 

U * ********************************************************* ************** ****// 

fsetpos(NEU_ENP,&(LOAD_SET[1 1 ] .nt Jile)); 

for(CHECKD = 0; CHECKD < LOAD_SET[Il] .NT_NUM; CHECKD++) 

{ 


D); 


fscanf(NEU_INP,”%ld,%d,%d,%lg",LOAD_SET[Il].NT_lD+CHECKD,&B,&I4,LOAD_SET[Il].NT_VALUE+CHECK 

fgets(buffer,200,NEU_INP); 


int),LOAD_SET[ 1 1 ] ,ET_NUM) ; 


if(LOAD_SET[II].ET_NUM !=0) 

' LOAD_SET[ 1 1 ] ET_ID=(long int *)calloc(sizeof(long 

i f( LOAD_SET[ 1 1 ] ,ET_ID==NULL) 
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printfC Insufficient memory for data in load set #\n'\Il +1 ); 
getchar(); 

} 

LOAD„SET[Il ].ET_VALUE=(double 

♦)calloc(sizeof(double),LOAD_SET[Il].ET_NUM); 

if(LO AD_SET[ 1 1 ] ET_V ALUE==NULL) 

printfC Insufficient memory for data in load set #\n\U +1); 
getcharO; 

} 


//******** *********************************** ***** *************** ****** ******* jf 


fsetpos(NEU_INP,&(LOAD_SET[Il].et_file)); 

for(CHECKD = 0;CHECKD < LOAD_SET[Il].ET_NUM; CHECKD++) 

{ 


fscanf(NEU_fNP,"%Id,%d,%d,%lg M T LOAD_SET[Il].ET_ID+CHECKD,&I3,&I4,LOAD_SET[Il].ET_VALUE+CHECK 

fgets(buffer,200,NEU_INP); 


} 


FLAG = 0; 


prompt 


LOADSET.PICK 


for(i — 0; i < LOAD_NUM; i++) 

strcpy(loadset_names[i], LOAD_SET[i].NAME); 

Ioadset_name = loadset_prompt(loadset_names, LOAD_NUM); // Function that calls load set name 

for(i = 0; i < LOADJMUM; i++) 11 loo P 10 flnd 

if(strcmp(loadset_name t loadset_names[i]) == 0) 

LOADSET_PICK = i + 1; 

LOADSET_NUM = LOAD_SET[LOADSET_PICK].NUM; 

) 

else if(stmcmp(bool, "NO", 2) == 0) 


} 


FLAG=0; 


} 

****** ******************************************** *************************// 

ELEMENT_PROPERTY_P=( struct ELEMENT_PROPERTY *) calloc (sizeof(ELEMENT_PROPERTY),ELEMENT_PRO_NUM); 
if(ELEM ENT_PR OPERTY_P== NULL) 

{ 

printf("Insufficient memory for element property data\n ); 
getchar(); 

} 

else{ 

printf(”\n"); 

} 

fsetpos(NEU_INP,&file_pro); 


for (i=0;i<ELEMENT_PRO_NUM;i++) 

fscanf(NEU_INP,"%d,%d,%d T %d ,, ,&CHECKD,&Il ,&I2,&I3); 

(ELEMENT_PROPERTY_P+i)->A=I3; 

fgets(buffer,200,NEU_INP); 

fgetsCbuffer^OO.NEU^INP); 

fgets(buffer,200 > NEU_INP); 

fscanf(NEU_INP, "%d" t &II); 

fgets(buffer,200,NEU_INP); 
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ford I =0;ll <(float)(II/8)+ i .0;1 1 ++) 

{ fgets(buffer,200,NEU_INP); 

} 

fscanf(NEU_INP,"%d'\&II); 
fgets(buffer,200,NEU_INP); 
for (I3=0;I3<II;I3++) 

{ 

fscanf(NEU_INP,"%lg,",&((ELEMENT_PROPERTY_P+i)->B[I3])); 

} 

fgets(buffer,200,NEU_INP); 


fsetpos(NEU_INP,&fite_node); 

names =( struct NAMES *) malloc(sizeof(NAMES));//Dryer added 9/20/97 


for (NODEJ=0;NODEJ<NODE_NUM;NODEJ++) 

{ 

fscanf(NEUJNP/’%ld/\&CHECKD); 

(NODE_P+NODEJ)->A=CHECKD; 

for(i=0;i<10;i++) 

{ 

fscanf(NEU_INP,"%d, r \&Il); 

} 

fscanf(NEU_INP,"%lg,%lg,%lg",&X,&Y,&Z); 

(NODE_P+NODEJ)->x=X; 

(NODE.P+NODE J)->y= Y ; 

(NODE_P+NODE_i)->z=Z; 

( N ODE_P+ N ODE_i )->dx =0 .0 ; 

( NODE JP+NODE_i)->dy =0.0; 

(NODE_P+NODE_i)->dz=0.0; 

fgets(buffer,200,NEU_INP); 

for(i=0;i<5;i++) 

{ 

(NODE_P+NODE_i)->output_data[i]=0.0; 

} 

} 

^********+***********p rocess j n g the output c i a ta******************* ,, ‘// 
fsetpos(NEU_rNP,&file_element); 

for(ELEMENT _i=0;ELEMENT_i<ELEMENT„NUM 1 ;ELEMENT_i++) 

{ 

fscanf(NEUJNP/’%ld\&CHECKD); 

(ELEMENT_TMP+ELEMENT_i)->A=CHECKD; 

for(i=0;i<7;i++) 

{ 

fgets(buffer,200,NEU_INP); 

} 

} 

y/*********************************clear screen** ********************* ********// 


for (i=0;i<23;i++) 

{ 

printf("\n M ); 

} 

^♦♦***#^********+************itt*Case prompt***********************************^ 

if(case_i != 0) 

{ 

case_name = case_prompt(set_name, case_i); 

stmcpy(names->actual_case_name, case_name, strlen(case_name)); 

for(i = 0; i < casej; i++) 11 striping carriage return 

stmcpy(case_names[i], set_name[i], strlen(set_name[i]) - l ); 
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// loop to find case_n 


for(i = 0; i < case_i; i++) 

if(strcmp(case_name, case_names[i)) == 0) 
case_n = i + 1 ; 


goto labelnnn; 

yy* ****** ****************** ***************************** ************* ***♦****♦// 

labelnnn: 
case_nn = 0; 

for(i = 0; i < output_set_num; i++) 

{ 

if(case_num[i] = case_n) 

{ 

strcpy(temp_set_name[case_nn], out_set_name[i]); 
case_set_num[case_nn] = i; 
case_nn - case_nn + 1 ; 


} 

yy* ************************ ****** **clear screen***** *************** * ****** ****yy 

for (i=0;i<23;i++) 

{ 

printf("\n"); 

} 


yy** ************************** ****** ***************** *************** *******♦*♦// 


for(i=0;i<case_nn;i++) 

if(( !strncmp(temp_set_name[i] ,"T 1 Translation",! 4))ll( !stmcmp{temp_set_name[i] ,"X Translation 11 ,! 3))) 

{ 

fsetpos(NEU_fNP,file_output+case_set_num[i]); 

for (NODE_i=0;NODE_i<Total_num[case_set_num[i]];NODE_i-H-) 

{ 

fscanf(NEU_INP,"%ld,%lg",&CHECKD,&X); 

ELEMENT_i=FindNid(CHECKD); 

fgets(buffer,200,NElLINP); 

(NODE_P+ELEMENT_i)->dx=X; 

} 

if((!stmcmp(temp_set_name[i],"T2 Translation", 14))ll(!stmcmp(temp_set_name[i], Y Translation ,13))) 

{ 

fsetpos(NEU_INP,file_output+case_set_nunn[i]); 

for (NODEJ=0;NODEJ<Total_num[case_set_num[i]];NODEJ++) 

{ 

fscanf(NEU_INP,"%ld,%lg",&CHECKD,&X); 

fgets(buffer,200,NEU_INP); 

ELEMENT_i=FindNid(CHECKD); 

(NODE_P+ELEMENT_i)->dy=X ; 


if((!stmcmp(temp_set_name[i],"T3 Translation", !4))ll(!stmcmp(temp_set_name[i],"Z Translation",! 3») 

{ 

fsetpos(NEU_INP,file_output+case_set_num[i]); 

for (NODEJ=0;NODEJ<Total_num[case_set_num[i]] ;NODE J++) 

{ 

fscanf(NEU_INP,"%ld,%lg",&CHECKD,&X); 

fgets(buffer,200,NEU_INP); 

ELEMENT J=FindNid(CHECKD); 

(NODE_P+ELEMENT_i)->dz=X; 


} 

yy ************************** * ^Output data sets ***************************** *// 

ford = 0; i < case_nn; i++){ " '"dude whether output is nodal or 

elemental 
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if(TYPE[case_set_num[i]) == 7) 

sprintf(te mp_name [i] , "(Nodal) %s'\ temp^set_name[i]); 
if(TYPE[case_set_num[i]] == 8) 

sprintf(temp_name[i], "(Elemental) %s", temp„set_name[i]); 


0 ) 


output_data = output_data_prompt(temp_name, case_nn); // Function that calls output set name prompt 

j = °; 

while(output_data[j + 1] != NULL && j < 10) { 

for(i = 0; i < case_nn; i++) // loop to find case_ 

i f(stmcmp(strchr(output_data[j ] , ”) + 1, temp_set_name[i], strlen(strchr(output_data[j], ")+ \ )) 


if(stmcmp(output_data[j], "(Elemental)", 11) — 0 && k < 5){ 
V[k-f-+] = i; 

V_NUM = V_NUM - 1 ; 

else if(stmcmp(output_data[j] > "(Nodal)", 7) = 0 && m < 5){ 
U[m++] = i; 

U_NUM = U_NUM - 1; 


} 

j=j + »; 


goto labelxxx; 

********************************************************************* *******// 
labelxxx: 


if(V_NUM != 5) 

{ 


foifi = 0; i < 5 - V_NUM; i++) 

fsetpos(NEU_INP,file_output+case_set_nuin[V[i]]); 

for(ELEMENT_i=0;ELEMENT_i<Total_num[case_set_num[V[i]]];ELEMENT_i++) 

{ 

fscanf(NEU_INP,"%ld,%lg",&CHECKD,&X); 

(ELEMENT_TMP+FindEid(CHECKD))->data[i]=X; 

fgets(buffer,200,NEU_INP); 

} 

} 


for(ELEMENT _i=0;ELEMENT _i<ELEMENT_NUM 1 ;ELEMENT_i++) 

{ 

for(Il=0;ll<5;Il++) 

{ 

(ELEMENT_TMP+ELEMENT_i)->data[Il ]=0.0; 

} 

} 

} 

if(U_NUM != 5) 

{if(U_NUM < 0){U_NUM = 0;} 

//m***m*m*****PnceKing the nodal output data******************^*^ W!,t // 

for(i = 0; i < 5 - U_NUM; i++) 

{ 

fsetpos(NEU_INP,file_output+case_set_num[U[i]]); 

for(NODE_i=0;NODE_i<Total_num[case_set_num[U[i]]];NODE_i++) 

{ 

fscanf(NEUJNP,"%ld,%Ig",&CHECKD,&X); 

(NODE_P+FindNid(CHECKD))->output_data[i]=X; 
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fgets(buffer,200,NEUJNP); 


fsetpos(NEU_lNP, &file_element); 

NODE_i=0; 

for (ELEMENT_i=0;ELEMENT_i<ELEMENT_NUM 1 ;ELEMENT_i++) 

^fscanf(NEU_INP, , ’%]d,%d,%d,%d,%d,\&CHECK.DD,&Il,&I2,&13,&I4); 

fgets(buffer,200,NEU_INP); 

switch(I4) 

{ 

case 0: 

for(i=0;i<20;i++) 

{ 

fscanftNEU.INP/^ld/’^CHECKD); 

ID[i]=FindNid(CHECKD); 

} 

(ELEMENT_P+NODE_i)->A=2 ; 
(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B [0]=ID[0] ; 
(ELEM ENT_P+NODE_i )->B [ 1 ]=ID[ 1 ] ; 
(ELEMENT_P+NODE_i)->B[2]=-l ; 
(ELEMENT_P+NODE_i)->B[3]=- 1 ; 
(ELEMENT_P+NODE_i)->F=I3; 

for(i=0;i<5;i++) 

l 

(ELEMENT_P+NODE_i)- 

>C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

NODEJ=NODE_i+l; 
fgets(buffer,200,NEU_INP) ; 
break; 

case 2: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP, " %ld, " .&CHECKD) ; 
ID[i]=FindNid(CHECKD); 

) 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

for(Il=0;Il<4;ll++) 

{ 

(ELEMENT_P+NODE J)->B[1 1 ]=ID[1 1 ] ; 

} 

(ELEMENT _P+NODE _J)->F=I3 ; 
for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE_i)- 

>C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 

NODE_i=NODE_i+l ; 

f gets (buffer, 200, NEU_INP); 
break; 

case 3: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP,"%ld,",&CHECKD); 

ID[i]=FindNid(CHECKD); 

} 

(ELEMENT_P+NODE_i)-> A=3 ; 
(ELEMENT_P+NODE_i)->D=CHECKDD; 

for(Il=0;Il<4;Il++) 

(ELEMENT_P+NODE_i)->B[1 1 ]=ID[I1]; 
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} 

(ELEMENT_P+NODEJ)->F=I3; 

for(i=0;i<5;i++) 

{ 

(ELEMENT_P+NODE _i )- 

>C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE _i=NODE_i+ 1 ; 

fgets(buffer,200,NEU_INP); 

break; 

case 4; 

for(i=0;i<20 ;i++) 

{ 

fscanf(NEU_INP,"%ld,",&CHECKD); 

ID[i]=FindNid(CHECKD); 

} 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

for(Il=0;Il<4;Il++) 

{ 

(ELEMENT_P+NODE_i)->B[ll]=ID[Il]; 

} 

(ELEMENT_P+NODE_i)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ; 

fgets(buffer,200,NEU_INP); 

break; 

case 5: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP,"%ld/ , ,&CHECKD); 

ID[i]=FindNid(CHECKD); 

} 

(ELEMENT_P+NODE_i)->A=4 ; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 


1997 


for(Il=0;Il<4;Il++) 

{ 

(ELEMENT_P+NODE_i)->B[Il]=ID[Il]; 

(ELEMENT_P+NODE_i)->F=13 ; //revised Sept. 30, 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODEj=NODE_i+l; 

fgets(buffer,200,NEU_INP); 

break; 

case 6: 

for<i=0;i<20;i++) 

{ 

fscanf(NEU_INP, "%ld, ’\&CHEC KD) ; 

ID[i]=FindNid(CHECKD); 

} 

fgets(buffer,200,NEU_lNP); 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE J)->B[0]=ID[0] ; 

(ELEMENT_P+NODE _i )->B [ l ]=ID[ 1 ] ; 

(EL£MENT_P+NODE_i)->B[2]=rD[2] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

(ELEMENT_P+NODE_i)->E= 1000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 
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(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 

(ELEMENT_P+NODE _i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[3)=ID[33; 

(ELEMENT_P+NODEJ)->E=1000; 

(ELEMENT_P+N0DE_i)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE _i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE _i)->B[0]=ID[03; 

(ELEMENT_P+NODE_i)->B{ 1 ]=ID[2] ; 

(ELEMENT_P+NODEJ)->B[2]=ID[4]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3] ; 

(ELEMENT_P+NODE_i)->E=1000; 

(ELEMENT_P+NODE_i)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->CEi]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT.P+NODE _i)->B [0]=ID[ 1 ] ; 

(ELEMENT_P+NODE _i)->B[ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[4]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

( ELEMENT_P+N ODE_i)->E= 1 000 ; 

(ELEMENT_P+NODE _i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ; 
break; 

case 7: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP,"%ld,’\&CHECICD); 

ID[i]=FindNid(CHECKD); 

} 

fgets(buffer > 200,NEU_INP); 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[03 ; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B [2]=ID[2] ; 

(ELEMENT_P+NODEJ)->B[3]=ID[33; 

(ELEMENT_P+NODE_i)->E=1000; 

(ELEMENT_P+NODEJ)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C [ i]=(ELEMENT_TM P +ELEMENT_i)->dala[i] ; 

) 

NODEJ=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 
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(ELEMENT_P+NODE_i)->B(0]=ID(4] ; 

(ELEMENT_P+NODE_i)->B[ ) ]=ID[5); 

(ELEMENT_P+NODE_i)->B[2]=ID[6] ; 

(ELEMENT_P+NODE_i )->B[3]=ID[3]; 

(ELEMENT_P+NODE J)->E= 1 000; 

(EL£MENT_P+NODE_i)->F=13; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE„i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 

(ELEMENT_P+NODE J)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[5]; 

(ELEMENT_P+NODE_i)->B[3]=ID[4]; 

(ELEMENT_P+NODE_i)->E=lOOO; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i-M-) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=4; 

(EL£MENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[l]=ID[2]; 

(ELEMENT_P+NODE _i)->B[2]=ID[5] ; 

(ELEMENT_P+NODE J)->B[3]=ID[4] ; 

(ELEMENT_P+NODE_i)->E= 1 000; 

(EU3MENT_P+NODE_i)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[2]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[0]; 

(ELEMENT_P+NODE_i)->B[23=ID[4]; 

(ELEMENT_P+NODE_i)->B[3]=ID[6] ; 

(ELEMENT_P+NODE _i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 


NODE_i=NODE_i+ 1 ; 
break; 

case 8: 

for(i=0;i<20;i++) 

{ 

fscan^NEU.JNP/^ld/'.&CHECKD); 

ID[i]=FindNid(CHECKD); 

} 

(ELEMENT_P+NODE_i)->A=4 ; 
(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 
(ELEMENT_P+NODE_i)->B[ 1 ]=ID[3]; 
(ELEMENT_P+NODE_i)->B[2]=ID[23; 
(ELEMENT_P+NODE_i)->B[3]=ID[l]; 

(ELEMENT_P+NODE J )->E= 1 000; 

( ELEM ENT_P+NODE_i)->F= 13 ; 
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for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

I 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i )->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[I]=ID[5J; 

(ELEMENT_P+NODE_i)->B[2]=ID[6J; 

(ELEMENT_P+NODE_i)->B[3]=ID[7J; 

(ELEMENT_P+NODE_i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0]; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[5]; 

(ELEMENT_P+NODE_i)->B[3]=ID[4]; 

(ELEMENT_P+NODE_i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

) 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B [0]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[6]; 

(ELEMENT_P+NODE_i)->B[3]=ID[5]; 

(ELEMENT_P+NODE_i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[2J; 

(ELEMENT_P+NODE_i)->B [ 1 ]=tt>[3] ; 

(ELEMENT_P+NODE_i)->B [2]=ID[7] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[6]; 

(ELEMENT_P+NODE_i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

1 

NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[3]; 

(ELEMENT_P+NODE_i)->B[l]=lD[0]; 

(ELEMENT_P+NODE_i)->B[2]=ID[4]; 

(ELEMENT_P+NODE_i)->Bf3]=ID[7); 

(EL£MENT_P+NODE_i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=l3; 
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for(i=0;i<5;i++) 


(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE _i=NODE_i+ 1 ; 

fgets(buffer,200,NEU_!NP); 

break; 

case 9: 

fgets(buffer,200,NEU_lNP); 

fgets(buffer,200,NEU_INP); 

break; 

case 10: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP,"%ld,",&CHECKD); 

ID[i]=FindNid(CHECKD); 

} 

fgets(buffer,200,NEU_INP); 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=lD[2]; 

(ELEMENT_P+NODEJ)->B[3]=ID[3]; 

(ELEMENT_P+NODE _i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT J > +NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 


NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0]; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[ 1 ] ; 

(ELEMENT JP+NODE_i)->B[2]=ID[4]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

(ELEMENT_P+NODE_i)->E=1000; 

(ELEMENT JP+NODE_i)->F=I3; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 


NODE_i=NODE_i+l ; 

(ELEMENT_P+NODEJ)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 

(ELEMENT_P+NODE_i )->B [ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[43; 

(ELEMENT JP+NODE_i)->B[3]=ID[3]; 

(ELEMENT_P+NODEJ)->E=1000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)-xJata[i]; 

1 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=FD[4] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3]; 

(ELEMENT_P+NODE_J)->E=1000; 

(ELEMENT_P+NODE_i)->F=I3; 

for(i=0;i<5;i++) 
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(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data(i); 


} 

NODEJ=NODE_i+l; 

break; 

case 1 1 : 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP,”%ld, M ,&CHECKD); 

ID[i]=FindNid(CHECKJD); 


fgets(buffer,200,NEU_INP); 

(ELEMENT_P+N0DE_i)->A=3; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[3]; 

(ELEMENT_P+NODE _i)->B[ 1 ]=H>[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[ 1 ] ; 

(ELEMENT_P+NODE _i)->B[3]=ID[0] ; 

(ELEMENT_P+NODE_i)->E= 1000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i-H-) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)-xlata[i]; 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)->A=3 ; 

(ELEMENT_P-t-NODE_i)->D=CHECKDD; 

(EUEMENT JP+NODE_i)->B[0]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[5] ; 

(ELEMENT_P+NODE_i)->B[2]=:lD[6]; 

(ELEMENT_P+NODE_i)->B[3]=ID[3] ; 

(ELEMENT_P+NODE_i)->E=1000; 

(ELEMENT_P+NODE_i)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

NODEJ=NODE_i+i; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 

(ELEMENT_P+NODE _i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[53; 

(ELEMENT_P+NODE _i)->B[3]=ID[4] ; 

(ELEMENT_P+NODE_i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i-H-) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 

} 

NODEJ=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=4; 

(EL£MENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODEJ)->B[0]=ID[1]; 

(ELEMENT_P+NODE _i)->B[ 1 ]=ID[2] ; 

(ELEMENT_P+NODE _i)->B[2]=ID[6] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[5] ; 

(ELEMENT_P+NODEJ)->E=1000; 

(ELEMENT_P+NODE_i)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODEJ)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 

{ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 
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(ELEMENT J>+NODE_i)->B[0]=ID[2]; 

(ELEMENT_P+NODE_i)->B( 1 ]=ID[0] ; 

<ELEMENT_P+NODE_i)->B[2]=ID[4J; 

(ELEMENT_P+NODEJ)->B[3]=ID[6); 

(ELEM ENT_P+NODE_i)->E= 1000; 

(ELEMENT_P+NODEJ)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE _i=NODE_i+ 1 ; 
break; 

case 12: 

for(i=0;i<20;i++) 

{ 

fscanf(NEU_INP/’%ld/\&CHECKD); 

IDti)=FindNid(CHECKD); 

} 

fgets(buffer,200,NEU_INP); 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0]; 

(ELEM ENT _P+NODE_i )->B [ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[2j ; 

(ELEMENT_P+NODE_i)->B[3]=ID[3] ; 

(ELEMENT_P+NODE_i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_t)->data[i); 

} 

NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODE_i)-> A=4 ; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[4] ; 

(ELEMENT_P+NODE_i)->B[l]=ID[53; 

(ELEMENT„P+NODE _i)->B[2]=ID[6] ; 

(ELEMENT_P+NODE_i)->B[3]=ID[7] ; 

(ELEMENT_P+NODE_i)->E^1000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i], 

} 

NODEJ=NODE_i+l; 

(ELEMENT_P+NODE_i)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[0] ; 

(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 

(ELEMENT_P+NODE_i)->B[21=ID[53; 

(ELEMENT_P+NODE_i)->B[3]=ID[4]; 

(ELEMENT_P+NODE_i)->E= 1 000; 

(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+l ; 

(ELEMENT_P+NODE_i)-> A=4 ; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ED[ 1 ] ; 

(ELEMENT_P+NODE J)->B[ 1 ]=ID[2] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[6]; 

(ELEMENT_P+NODEJ)->B[3]=FD[5]; 

( ELEMENT_P+NODE_i )->E= 1000; 
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(ELEMENT_P+NODE_i)->F=I3; 

for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENTJ)->data(i]: 


NODE_i=NODE_i+ 1 ; 

(ELEMENT_P+NODEJ)->A=4; 

(ELEMENT_P+NODE_i)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID[2] ; 

(ELEMENT_P+NODE J)->B[ 1 ]=ID[3] ; 

(ELEMENT_P+NODE_i)->B[2]=ID[7]; 

(ELEMENT_P+NODEJ)->B[3]=ID[6]; 

(ELEMENT_P+NODE_i)->E=1000; 

(ELEMENT_P+NODE_i)->F=I3; 
for(i=0;i<5 ;i-H-) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODEJ=NODE_i+l; 

(ELEMENT_P+NODEJ)->A=4; 

(ELEMENT_P+NODEJ)->D=CHECKDD; 

(ELEMENT_P+NODE_i)->B[0]=ID{3]; 

(ELEMENT_P+NODE_i)->B [ 1 ]=ID[0] ; 

(ELEMENT_P+NODEJ)->B[2]=ID[4]; 

(ELEMENT_P+NODE_i)->B[3]=ID[7]; 

(ELEMENT_P+NODE_i)->E=1000; 

(ELEMENT_P+NODE _i)->F=I3 ; 
for(i=0;i<5;i++) 

(ELEMENT_P+NODE_i)->C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

) 

NODE_i=NODE_i+ 1 ; 
break; 

case 13: 


for(i=0;i<20;i++) 

{ 

fscanffNEU.INP/^ld/’.&CHECKD); 

ID[i]=FindNid(CHECKD); 

} 

(ELEMENT_P-t-NODE_i)->A=4; 

(ELEMENT_P-fNODE_i)->D=CHECKDD; 


(ELEMENT_P+NODEJ)->B[0]=ID[0]; 
(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 
(ELEMENT_P+NODE_i)->B [2]=ID[ 1 ] ; 
(ELEMENT_P+NODE_i)->B[3]=ID[0]; 
(ELEMENT_P+NODE_i)->F=I3 ; 
for(i=0;i<5;i++) 

{ 

( ELEM ENT_P+N ODE_i )- 

>C[i]=(ELEMENT_TMP+ELEMENT_i)->data[i]; 

} 

NODE_i=NODE_i+ 1 ; 
fgets(buffer,200,NEU_INP) ; 


for(i=0;i<4;i++) 


break; 


fgets(buffer,200,NEU_INP); 


if(I4==13) 

{ 

CHECKD=0; 

while(CHECKD!=-l) 

< 

fscanf(NEU_ IN P, ” % Id , " , &C HEC KD) ; 
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fgets(buffer,200,NEU_lNP); 


if(CHECKD!=- 1 ){ 

ID[ 1 ]=FindNid(CHECKD); 
(ELEMENT_P+NODE_i)->A=4; 
(ELEMENT_P+NODE_i)->D=CHECKDD; 


(ELEMENT_P+NODE_i)->B[0]=ID[0J; 
(ELEMENT_P+NODE_i)->B[ 1 ]=ID[ 1 ] ; 
(ELEMENT_P+N0DE_i)->B[2]=ID[ 1 ] ; 
(ELEMENT_P+NODE_i)->B [3]=ID[0] ; 
(ELEMENT_P+N0DE_i)->F=I3; 
for(i=0;i<5;i++) 

{ 

( E LEM ENT_P+NODE_i )- 


>C[i]=(ELEMENT_TMP+ELEMENTJ)->data[i]; 


NODE_i=NODE_i+ 1 ; } 

} 


for(ELEMENT_i=0;ELEMENT_i<ELEMENT_NUM;ELEMENT_i-H-) 

{ 

flag=0; 

if((ELEMENT_P+ELEMENT J)->E=1 000) 

{ 

NODE_i=ELEMENT_i+ 1 ; 

while((NODE_i<ELEMENT_NUM)&&(flag==0)) 

{ 

if((ELEMENT_P+NODE_i)->E==1000) 

{ 

flag=compare(ELEMENT_i,NODE_i); 

} 

if(flag=l) 

{ 

(ELEMENT_P+ELEMENT_i )->E= 1 ; 
(ELEMENT J>+NODE_i)->&=l ; 

} 

e!se{ 

NODE_i=NODE_i+ 1 ; 

} 

} 

if(flag==0) 

{ 

(ELEMENT_P+ELEMENT_i)->E=0; 

(ELEMENT_P+NODE_i)->E=0; 


} 

} 

fclose(NEU_INP) ; 

//****« ****** ******* *******pj[ ter internal Surface**********************// 


if(flag_solid = 1) 

1 strcpy(gui_name, "FBP"); 11 F™ name id of constraint 

boolean prompt 

bool = bool_prompt(gui_name); // Prompt to filter internal surfaces 

FLAG = 1; 
while(FLAG == 1) 

if(stmcmp(bool, "YES", 3) = 0) // If yes is pressed 

( 

tmpl = fopenftest tmp’\ "w+ M ); 
tmp2 = fopen("testl .tmp","w+”); 
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ELEMENT_NUM_S=0; 

for (i = 0; i < ELEMENT_NUM; i++) 

{ 

if((ELEMENT_P + i)->E == 0) 


ELEMENT_NUM_S = ELEMENT_NUM_S + 1; 
fprintf(tmp2, 

"%ld\t%d\t%ld\t%ld\t%ld\t%ld\t%lg\t%lg\t%lg\t%lg\t%!g\t%d\t%d\n M , 

(ELEMENT_P+i)->D,(ELEMENT_P+i)->A,(ELEMENT_P+i)- 


>B[0] > (ELEMENT_P+i)->B[ i ] , 


(ELEMENT_P+i)->B[23,(ELEMENT_P+i)->B[3],(ELEMENT_P+i)->C[0], 
(ELEMENT_P+i)->C[l],(ELEMENT_P+i)->C[2],(ELEMENT_P+i)->C[3], 
(ELEMENT_P+i)->C(4],(ELEMENT_P+i)->E,(ELEMENT_P+i)->F); 
(NODE_P + ((ELEMENT_P + i)->B[0]))->H = 1; 

(NODE_P + ((ELEMENT_P 4- i)->B[ 1 ]))->H = 1; 

(NODE„P + ((ELEMENT.P + i)->B[2]))->H = 1 ; 

(NODE_P + ((ELEMENT.P + i)->B[3]))->H = 1 ; 


} 

NODE_NUM_S = 0; 


for (i = 0; i < NODE.NUM; i++) 

{ 

if((NODE_P + i)->H = 1 ) 

{ 

NODE_NUM_S=NODE_NUM_S + 1; 

fprintf(tmpl/%ld\t%lg\t%lg\t%lg\t%lg\t%lg\t%lg\t%Ig\t%lg\t%lg\t%lg\t%lg\t%d\n , \ 

i+1, (NODE_P + i)->x, (NODE_P + i)->y, (NODE_P + i)->z, 

(NODE_P + i)->dx,(NODE _P + i)->dy, (NODE_P + O-rnlz, (NODE_P + i)- 

>output_data[0], 

(NODE_P + i)->output_data[l], (NODE.P + i)->output_data[2], 

(NODE.P + i)->output_data[3], (NODE_P + i)->output_data[4], 

(NODE_P + i)->H); 

} 

} 

rewind(tmp2); 

rewind(tmpl); 

ELEMENT_NUM=ELEMENT_NUM_S ; 

NODE_NUM=NODE_NUM_S; 

free(ELEMENT_P); 

ELEMENT_P=(struct ELEMENT_DAT A *)calloc(sizeof (ELEMENT_DATA),ELEMENT_NUM); 
free(NODE_P); 

NODE_P=(struct NODE.DAT A *)calloc (sizeof(NODE_DATA),NODE_NUM); 


for (i=0;i<NODE_NUM;i++) 

* fscanf(tmpl, ,, %ld\t%lg\t%lg\t%lg\t%lg\t%lg\t%lg\t%lg\t%lg\t%lg\t%lg\t%lg\t%d\n”, 

&((NODE_P+i)->A),&((NODE_P+i)->x),&((NODE_P+i)->yX 

&((NODE_P+i)->z),&((NODE_P+i)->dx) t &((NODE_P+i)->dy), 

&((NODE_P+i)->dz),&((NODE_P-H)->output.data[0]) > 

&((NODE_P+i)->output_data[l]) > &((NODE_P+i)->output_data[23), 

&((NODE_P+i)->output_data[33),&((NODE_P+i)->output_data[4]) > 

&((NODE_P+i)->H)); 

} 

for (i=0;i<ELEMENT_NUM;i++) 

fscanf(tmp2,”%]d\t%d\t%ld\t%ld\t%ld\t%ld\t%lg\t%lg\t%lg\t%lg\t%lg\t%d\t%d\n M , 

&((ELEMENT_P+i)->D),&((ELEMENT_P+i)->A),&IA,&IB,&IC,&IE,&((ELEMENT_P+i)- 

&((ELEMENT_P+i)->C[l]),&((ELEMENT_P+i)->C[2]),&((ELEMENT_P+i)->C[33), 

&((ELEMENT_P+i)->C[4]),&((ELEMENT_P+i)->E),&((ELEMENT_P+i)->F)); 

(ELEMENT_P+i)->B[0]=FindNid(IA+l); 

(ELEMENT_P+i)->B[ 1 j=FindNid(IB+ 1 ); 

(ELEMENT_P+i)->B(2]=FindNid(IC+l); 

(ELEMENT_P+i)->B[3j=FindNid(IE+l); 

} 

fdose(tmpl); 

fclose(tmp2); 

FLAG=0; 

} 
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// If no is pressed 


I 


else if(stmcmp(bool, "NO", 2)== 0) 
FLAG = 0; 


^************************ print to file - node data***************************// 


fp = fopen(" node. 1st", "w+"); 

for(NODE_i=0;NODE_i<NODE_NUM;NODE_i++) 

fprintf(fp,"%ld %10.51g %10.51g %10.51g %10.51g %10.51g %10.51g %10.51g %10.51g %10.51g %10.51g 

%10.51g\n’\ 

(NODE_P+NODE_i)->A,(NODE_P+NODE_i)->x,(NODE_P+NODE_i)->y,(NODE_P+NODE_j)->z, 

(NODE_P+NODE_i)->dx,(NODE_P+NODE_i)->dy,(NODE_P+NODE_i)->dz, 

(NODE_P+NODE_i)->output_data[0], 

(NODE_P+NODEJ)->output_data[ 1 ],(NODE_P+NODE_i)->output_data[2], 
(NODE_P+NODE_i)->output_data[3],(NODE_P+NODE_i)->output_data[4]); 

} 

fclose(fp); 

^***************^************pri n t (o fd e _ element data*********************************// 


fp 1 =fopen("element.lstV'w+"); 

for(ELEMENT_i=0;ELEMENT_i<ELEMENT_NUM;ELEMENT_i++) 

fprintf(fpl,"%ld %Id %ld %ld %ld %ld %10.51g 

%10.51g %10.51g %10.51g %10.5lg %ld %ld\n", 

(ELEMENT_P+ELEMENT_i)->D, 

(ELEMENT_P+ELEMENT_i)->A, 

(ELEMENT_P+ELEMENT_i)->B[0], 

(ELEMENT_P+ELEMENT_i)->B[ 1 ]. 

(ELEMENT_P+ELEMENT_i )->B[ 2] , 

(ELEMENT_P+ELEMENT_i)->B[3], 

(ELEMENT_P+ELEMENT_i)->C[0], 

(ELEMENT_P+ELEMENT_i)->C[ 1 ], 

(ELEMENT_P+ELEMENT_i)->C[2], 

(ELEMENT_P+ELEMENT_i)->C[3], 

(ELEMENT_P+ELEMENT J)->C[4] , 

(ELEMENT_P+ELEMENT_i)->E, 

(ELEMENT_P+ELEMENT_i)->F); 


) 

fclose(fpl); 

//**#***4^**************** print to file - info data***************************// 
fp2=fopen("inf.lstV'w+ M ); 

fprintf(fp2,"%ld %ld %ld\n\NODE_NUM,ELEMENT_NUM,ELEMENT_NUMl); 
for(i=0;i<5-U_NUM ;i++) 

* fprintf(fp2 > "%ld %10.51g %10.5lg %I0.51g%sMotal_num[case_set_num[U[i]]-13>MIN_VALUE[case_set_num[U[i]]- 

l],MAX_VALUE[case_set_num[U[i]]-l],AMAX_VALUE[case_set_num[U[i]]-l],out__set_name[case_set_num[U[i]]-l]); 

stmcpy(names->actuaLset_name[i],out_set_name[case_set_num[U[i]31,strlen(out_set_name[case_set_num[U[i]]])); 

} 

for(i=0;i<5-V_NUM;i++) 

fprintf(fp2,"%ld %10.51g %10.51g %10.5lg%s",Total_num[case_set_num[V[i]]-l] 1 MIN_VALUE[case_set_num[V[i]]- 

l],MAX_VALUE[case_set_num[V[i]]-l],AMAX_VALUEtcase_set_num[V[i]]-l],out_set_name[case_set_num[V[i]]-l]); 

stmcpy(names->actual_set_name[5+i],out_set_name[case_set_num[V[i]]],strlen(out_set_name[case_set_num[V[i]J])); 

} 

fclose(fp2); 

to file - LOAD data*********************************// 

if(LOAD_YES = l){ 

fpjoad = fopen("load.lst", "w+"); 

for(i = 0; i < LOADJMUM; i++){ 

fprintf(fp_1oad, "%d %s", LOAD_SET[i].SET_ID, LOAD_SET[i].NAME), 
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OR ELEMENT ID 


for(q - 0; q < LOAD_SET[i].NUM; q++){ 

fprintf(fp_load, "%ld %d\n", LOAD_SET[i].ID[q], LOAD_SET[i].TYPE[q}); //NODE 


LO AD_SET[i] • V ALUE[q* 8+2+r] ); 

} 


for (r = 0; r < 6; r++) 

fprintf(fp_load, "%d %lgVn'\ LOAD_SET[i].FACE[q*6+r], 


} 

fclose(fpjoad); 


//^**«:M*****4***************pri n t to file - CONSTRAINT data*********** I, '***♦******** ,,, ********// 


if( CONSTRAINT YES = 1){ 

fp_constraint = fopen("constraint.lsf\ "w+"); 


for(I2 = 0; 12 < CONSTRAINT.NUM; I2++){ 

fprintf(fp_constraint, "%d %s’\ CONSTRAINT_SET[I2].A, CONSTRAINT_SET[I2].B)» 


fort 13 = 0; 13 < CONSTRAINT_SET[I2].NUM; I3++) 

fprintf(fp_constraint, "%ld %d %d %d %d %d 

%d\n\ CONSTRAINT_SET[I2].ID[I3], 

CONSTR AINT_SET[ 12] .INDEX[ 13 *6] , CONSTRAINT_SET[I2]. ENDEX[I3 *6+ 1 ], 
CONSTRAINT_SET[I2].INDEX[I3*6+2],CONSTRAINT_SET[I2].INDEX[I3*6+3], 
CONSTR AINT_SET[I2].lNDEX[I3*6+4],CONSTRAINT_SET[ 12]. INDEX[ 13*6+5]); 


} 


} 

} // end of main loop 


} 


H * 4 44 * 4 *4 4 * 4 444 4 4 4 44 4 4 ******* 4 4 4 **************************************** // 

// Function: FindNid 

// Inputs: Entity ID - ID of node or element for output 

// Outputs: Node ID 
// Date revised and comments: 

U********************** ************************************************* ff 


long int FindNid(long int u) 

{ 

long int NL,NH,Ntmp; 
if(u = 0) 

return Ntmp = -1 ; 

if((NODE_P + NODE_NUM)->A = u) 

Ntmp = NODE_NUM; 
else 
{ 

NH = NODE_NUM - 1 ; 

NL = 0; 

while(NL <= NH) 

{ 

Ntmp = (NH + NL) / 2; 
if(u < (NODE_P + Ntmp)->A) 

NH = Ntmp - 1; 

else if((NODE_P + Ntmp)->A < u) 

NL = Ntmp + 1; 

else 

return Ntmp; 


return Ntmp; 


I ! H C4444 444444444*4*4****** ****************************************** *****// 

//Function: FindEid 


E-225 



// Inputs: 

// Outputs: 

// Date revised and comments: 

U ** * * * ******* * *********************** * ******* 3ft *********** * ************** // 


long int FindEid(long int u) 

( 

long int NL, NH, Ntmp; 
if(u = 0) 

return Ntmp = -1; 

if((ELEMENT_TMP + ELEMENT_NUM 1 )->A == u) 

Ntmp = ELEMENT_NUM 1 ; 

else 

I 

NH = ELEMENT_NUM 1 - 1; 

NL = 0; 

while(NL <= NH) 

{ 

Ntmp = (NH + NL) / 2; 

if(u < (ELEMENT_TM P + Ntmp)->A) 

NH = Ntmp - 1 ; 

else if((ELEMENT_TMP + Ntmp)->A < u) 
NL = Ntmp + 1; 

else 


return Ntmp; 

} 

//revised on Oct. 22,1997 

yy*** ********** ********************* ********** **************** ********** *yy 

//Function: Compare 
// Inputs: element_i, node_i 

// Outputs: Flag 

// Date revised and comments: Oct. 22,1997 

yy* ******************************************************* ************* *#// 

int compare(Iong int ELEMENT_i, long int NODE_i) 

{ 

int FLAG, C[4], i.j; 

for(i = 0; i < 4; i++) 

C[i] =0; 


for(i = 0; i < 4; i++) 

{ 

j = 3; 

FLAG = 0; 

while((j >= 0) && (FLAG == 0)) 

if((ELEMENT_P + ELEMENT _i)->B[ij = (ELEMENT.P + NODE_i)->B[j]) 

{ 

FLAG = 1 ; 

C[i] = 1 ; 

} 

j=j i; 


} 


if((C[0] = 1) && (C(l] == 1) && (C[2] = 1) && (C[3) == 1)) 
return FLAG = 1; 


else 


return FLAG = 0; 


yy* ****** ***************************************************************** ****// 
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yy* **********************************************************************// 

DVET Release 2.2/1 1/98 for WindowsNT Workstation 
inside 1 120.h 
1 1 February 1998 
Copyright 1998 

Dual Incorporated/University of Central Florida 

extern float xeulfloa^yeulfloa^zeul float; 

extern float qOfloat,ql float, q2float,q3float;//quat req 

yy * ******************* ************************** ************************ *// 
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jj * * * * **** * *********************** * **** ********************************** // 

DVET Release 2.2/1 1/98 for WindowsNT Workstation 

inside 1 120.C 

1 1 February 1998 

Copyright 1998 

Dual Incorporated 

// Headers 

II 

#include <windows.h> 

#include <stdio.h> 

#include <conio.h> 

// 

// Definitions 
II 

#define MESSAGE.COUNT 10 

#defme MESSAGE.TEXT "The owls are not what they seem.” 

// 

// Global data 

// 

HANDLE h Device; 

DWORD dwErrorCode; 

DWORD dwBytesRead; 

TCHAR szBuffer[100]; 

OVERLAPPED overlap; 

BOOL status; 

DWORD i; 
int n; 

float xeulfloaUyeulfloafzeulfloat; 

float qOfloat.ql float, q2float,q3 float v'/quat req 


If 

H Forward declarations of local functions... 

II 

DWORD 

Writerfchar *lpvParam); 

static VOID 
ErrorMessage( 

LPTSTR lpOrigin, 

DWORD dwMessageld 

); 

// 

VOID cdecl 

insideinit() 

{ 

hDevice = CreateFileC’WWWInSidel", 

GENER IC_READ ! GENERIC. WRITE, 

0, 

NULL, 

OPEN.EXISTING, 

FILE.FLAG.OVER LAPPED, 

NULL); 

if (hDevice == INVALID_HANDLE_VALUE) { 
dwErrorCode = GetLastError(); 
ErrorMessage( ,, CreateFile”, dwErrorCode); 

// ExitProcess(dwErrorCode); 

} 

II 

II Set up asynch operation (otherwise, we won’t 
// be able to use the same handle in two threads). 

II 

overlap. Offset = 0; 

overlap. OffsetHigh = 0; 

overlap. hEvent = CreateEvent(NULL, 

TRUE, 
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FALSE, 

NULL); 


status = ReadFile(hDevice, 

szBuffer, 

100 , 

&dwBytesRead, 

&overlap); 

if (Istatus && 

GetLastErrorO != ERROR_IO_PENDING) { 
dwErrorCode = GetLastErrorO; 

ErrorMessageC'ReadFile", dwErrorCode); 

goto Error; 

} 

// 

// Wait for the read to complete 
if 

status = GetOverlappedResuIt( 

hDevice, 

&overlap, 

&dwBytesRead, 

TRUE); 

if (Istatus) { 

dwErrorCode = GetLastErrorO; 

ErrorMessageC'ReadFile", dwErrorCode); 
goto Error; 

} 

szBuffer[dwBytesRead] = NO’; 

printf("Msg #% 2d [%d bytes]: %s\n", i + 1, dwBytesRead, szBuffer); 

Writer( M S M ); 

Sleep{200); 

// 

// Set up asynch operation (otherwise, we won't 
// be able to use the same handle in two threads). 

// 

overlap. Offset = 0; 
overlap. OffsetHigh = 0; 
overlap.hEvent = CreateEvent(NULL, 

TRUE, 

FALSE, 

NULL); 


status = ReadFile(hDevice, 

szBuffer, 

100 , 

&dwBytesRead, 

&overlap); 

if (Istatus && 

GetLastErrorO != ERROR JO_PENDING) ( 
dwErrorCode = GetLastErrorO; 

ErrorMe ssage( M ReadFi le " , dwErrorCode) ; 

goto Error; 

} 

// 

// Wait for the read to complete 
If 

status = GetOverlappedResult( 

hDevice, 

&overlap, 

&dwBytesRead, 

TRUE); 

if (Istatus) { 

dwErrorCode = GetLastErrorO; 
ErrorMessageC'ReadFile”, dwErrorCode); 
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goto Error; 


} 

szBuffer[dwBytesRead] = \0’; 

pnntff Msg #%2d {%d bytes]: %s\n'\ i + 1 , dwBytesRead, szBuffer); 


Sleep(lOO); 

Writerf B t\n”); 

Sleep(lOO); 

//WriterfO 1, 2,20,1X1)"); will just give quaternions (10 bytes in ReadFileO) 

// WriterfO 1,11 , l\n");//quat req 

//Writerf 01,2, 20,1 \n”); will give both position and quaternions 
// You have to increase data field in the 

n Read File(h Device, szBuffer, 1 0,&dwBytesRead,&overlap); from 10 to 18 bytes 
// WriterfO 1 ,2,20,1 \n">; 

Sleep(100); 

Writerf P"); 

Sleep(lOO); 


Error://Dryer test commented out 
// 

// All done with this; get rid of it 
// 

printff done insideinit()\n"); 

/// CloseHandle(overlap.hEvent);//Dryer test commented out 

II 

H Hang around until the writer is finished 
// 

/// Close Handle(h Device) ;//Dryer test commented out 

// ExitProcess(ERROR_SUCCESS); 

} 

insidetickQ 

{ 

short xeulshort,yeulshort,zeulshort; 

short qOshort,qlshort,q2short,q3 short ^/quat req 

// 

// Set up asynch operation (otherwise, we won’t 
// be able to use the same handle in two threads). 
// 

overlap.Offset = 0; 

overlap. OffsetHigh = 0; 

overlap. hE vent = CreateEvent(NULL, 

TRUE, 

FALSE, 

NULL); 


status = ReadFile(hDevice, 

szBuffer, 

/// 10y/quatreq 

16, 

&dwBytesRead, 

&overlap); 

if (Istatus && 

GetLastErrorO != ER R OR_IO_PEN DING) { 
dwErrorCode = GetLastErrorO; 
ErrorMessagef ReadFile” , dwErrorCode); 

goto Error; 


// 
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/// 

/// 

/// 

/// 

/// 

Hi 

/// 

/// 

Hi 


Hi 

/// 

if 

// 

/* 


*/ 

/* 


*/ 

/// 

m 


il Wait for the read to complete 
// 

status = GetOverlappedResult( 

h Dev ice, 

&overlap, 

&dwBytesRead, 

TRUE); 

if (Istatus) { 

dwErrorCode = GetLastErrorQ; 

ErrorMessage("ReadFile", dwErrorCode); 
goto Error; 

} 

szBuffer[dwBytesRead] = \0’; 

printffMsg #%2d [%d bytes]: %s\n", i + 1, dwBytesRead, szBuffer); 
printf(”type %c'\ szBuffer[0]); il type 

printfC’station %c ", szBuffer[l]); //station 

printf( M %d ", (“(unsigned short *)( szBuffer + 2» ); if xpos 
printf("%d ", (“(unsigned short *)( szBuffer + 4)) ); 
printf("%d\n", (*(unsigned short *)( szBuffer 4- 6)) ); 

printf("%d ", (“(short “)( szBuffer + 8)) ); fi x angle 
printf("%d ", (“(short “)( szBuffer + 10)) ); 
printf("%d\n", (“(short “)( szBuffer + 12)) ); 

xeulshort=(*(unsigned short *)( szBuffer -f 8)); If x angle short 
xeulfloat=(((float)(xeulshort))/65536.0)*360.0; // x angle float degrees 
yeulshort=(*( unsigned short *)( szBuffer + 10)); // y angle short 
yeulfloat=(((float)(yeulshort))/65536.0)*360.0; // y angle float degrees 
zeulshort=(“(unsigned short “)( szBuffer + 12)); // z angle short 
zeulfloat=(((float)(zeulshort))/65536.0)*360.0; // z angle float degrees 

printffx y z euler is %d %d %d\n",xeulshort,yeulshort,zeulshort); 
printf("x y z euler is %f %f %f\n",xeulfloat,yeulfloat,zeulfloat); 

printf("cr %\ ", “(unsigned char *)( szBuffer + 14)); 
printf("lf %x\n", “(unsigned char *)( szBuffer + 15)); 

printf("%d ", (*(short *)( szBuffer + 2)) ); //q0 
printf("%d ", (“(short *)( szBuffer + 4)) ); //q 1 
printf("%d ", (“(short *)( szBuffer + 6)) );//q2 
printf("%d\n\ (“(short *)( szBuffer + 8)) ); //q3 

qOshort=(*(unsigned short *)( szBuffer + 2)); // qO short 
q0float=(((float)(q0short))/65 536.0); // qO float 
qlshort=(“ (unsigned short *)( szBuffer + 4)); // ql short 
qlfloat=(((float)(qlshort))/65536.0); if ql float 
q2short=(* (unsigned short “)( szBuffer + 6)); if q2 short 
q2float=(((float)(q2short))/65536.0); if q2 float 
q3short=(*(unsigned short *)( szBuffer + 8)); fi q3 short 
q3float=(((float)(q3short))/65536.0); // q3 float 

printf("qOs qls q2s q3s is %d %d %d %d\n",qOshort,qlshort,q2short,q3short); 
printffqOf qlf q2f q3f is %f %f %f %f\n",qOfloat,q 1 float,q2float,q3 float); 


Writer("P"); 

Error://Dryer test commented out 
fi 

il All done with this; get rid of it 

il 

\lii printf("done insidetick()\n"); 

Hi CloseHandle(overlap.hEvent);//Dryer test commented out 

// 

if Hang around until the writer is finished 
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// 

III CloseHandle(hDevice);//Dryer test commented out 

// ExitProcess(ERROR_SUCCESS); 

} 

// 

// This function writes messages to the device 
// 

DWORD 
Writer(char *p) 

{ 

DWORD dwBytes Written; 

DWORD dwErrorCode; 

OVERLAPPED overlap; 

BOOL status; 

DWORD i; 

If 

// Set up accoutrements of overlapped I/O 
If 

overlap.Offset = 0; 

overlap. OffsetHigh = 0; 

overlap. hEvent = CreateEvent(NULL, 

TRUE, 

FALSE, 

NULL); 

II 

I I Wait 10 seconds before starting 

II 


status = WriteFile(h Device, 

P» 

strlen(p), 

&dwBytesWritten, 

&overlap); 

if (istatus && GetLastError() != ERROR_IO_PENDING) { 
dwErrorCode = GetLastError(); 
ErrorMessage( M WriteFile", dwErrorCode); 

// ExitThread (dwErrorCode); 

} 

If 

H Wait for the write to complete 
// 

status = GetOverlappedResult( 

hDevice, 

&overlap, 

&dwBytesWritten, 

TRUE); 

if (Istatus) { 

dwErrorCode = GetLastError(); 
ErrorMessage("WriteFile", dwErrorCode); 
CloseHandle(overlap. hEvent); 

// ExitThread(dwErroiCode); 

} 

/// printf(" dwBytes Written %d\n", dwBytesWritten); 

If 

// Introduce a little timing delay. This is 
If necessary because the driver is using the 
// FIFO timeout as a way to detect end of 
// transmission. 

II 

/// Sleep(lOO); 


II 

// Get rid of Event object 
If 
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CloseHandle(overlap.hEvent); 
return (ERROR_SUCCESS); 

} 


// 

// This helper routine converts a system-service error 
// code into a text message and prints it on StdOutput 
// 

static VOID 
ErrorMessage(LPTSTR IpOrigin, 

DWORD dwMessageld 

) 

{ 

LPTSTR msgBuffer; // string returned from system 
DWORD cBytes; // length of returned string 

cBytes = FormatMessage( 

FORMAT_MESSAGE_FROM_SYSTEM l 
FORMAT_MESSAGE_ALLOCATE_BUFFER, 

NULL, 

dwMessageld, 

MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), 
(TCHAR *) & msgBuffer, 

500, 

NULL); 

if (msgBuffer) { 

msgBuffer[cBytes] = TEXT(\0’); 

printf( M Error: %s - %s\n", IpOrigin, msgBuffer); 

Local Free( msgBuffer); 

} else { 

printf("FormatMessage error: %d\n", GetLastErrorO); 

} 

} 
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If*********** ********************************************** **************// 

DVET Release 2.2/1 1/98 for WindowsNT Workstation 
prompts.c 
1 1 February 1998 
Copyright 1998 
Dual Incorporated 
// 

// DESCRIPTION: This module contains functions that interface to the 

// ’graphical’ part of this program. This currently only relates to 

// the code that brings up the 

// 

//DEPENDENCIES: congui.dlg 
// 

// 

^*******************************< ►***************************************// 


#include <stdio.h> 

#include <string.h> 

#include <ctype.h> 

#include <windows.h> 

#include "ConGUI.h" 

************************** Declarations ******************************** *f 

int GetBool (char ***pargv, char *); 
extern BOOL CenterWindow (HWND hwnd); 

BOOL APIENTRY BOOLDlgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam); 
int GetName (char ***pargv, char set_name[3000][30], int); 

BOOL APIENTRY CPDIgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam); 
int GetOutputData (char ***pargv, char temp_set_names[3000][40], int); 

BOOL APIENTRY ODDlgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam); 
int GetLoadSetName (char ***pargv, char loadset_name[100][30], int); 

BOOL APIENTRY LSDlgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam); 
int GetConstraintSetName (char ***pargv, char constraintset_name[100][40], int); 

BOOL APIENTRY CSDlgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam); 


char case_names[3000][30], output_data_names[3000][40], load_names[100][40], constraint_names[100][40]; 
int case_amt, output_data_amt, load_amt, constraint_amt; 

^******* *********************************************************** ***♦*// 

// Function: GetBool 
// Inputs: none 
// Outputs: YES or NO 
// Date revised and comments: 

^j^t******** **************************************************** *********// 


int GetBool (char ***pargv, char *gui_name) 

( 

int ret; 

HANDLE hinst; 

HWND hwnd; 
char szFile[80]; 

hinst = GetModuleHandle (NULL); 
hwnd = GetFocus(); 

ret = DialogBoxParam (hinst, gui_name, NULL, BOOLDlgProc, ( LPARAM )pargv): 

if (-1 = ret) { 

ret = GetLastError(); 

printf ("Unable to create dialog: %d\n", ret); 

GetModuleFileName (hinst, szFile, sizeof(szFile)); 

printf ("hinst = %d\n ”, hinst); 

printf ("hwnd = %d\n", hwnd); 

printf ("File = %s\n", szFile); 

return FALSE; 

} 
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return ret; 


} 

U ** *********** ************************************************ *♦******♦*// 

// Function: BOOLDlgProc - Procedure that handles inputs, commands to the 
// dialog box 

// Inputs: window handle 
// Outputs: 

// Date revised and comments: 

yy* ********************** ** ****** *********** ********************** ****** *// 


BOOL APIENTRY BOOLDlgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam) 

{ 

int wmld; 

static char ***pargv; 
static char **argv; 

int iCtrl = 420, argc; 
char *cmd; 
char *cmdline; 

int max_no_file = 30; 

switch (msg) { 

case WMJNITDIALOG: 

// We need to initialize stuff in the dialog box... 

pargv = (char ***)lParam; 
argv = * pargv; 

CenterWindow (hdlg); 

return (TRUE); 

case WM_DESTROY: 
break; 

case WM.COMMAND: 

wmld = LOWORD( wParam); 
switch (wmld) { 

case ID YES: 

cmd = cmdline = (char *)GlobalAlloc (GPTR, 128); 
argv[0] - cmdline; 
argc = 0; 


if (cmdline) { 


strcpy(emd, "YES"); 


cmd +- strlen(cmd); 
cmd[0] = 0; 

argv [-M- argc] = ++cmd; 


} // if (cmdline)... 


EndDialog(hdlg, argc); 
return (TRUE); 

case ID NO: 

cmd = cmdline = (char *)GlobalAlloc (GPTR, 128); 

argv[0] = cmdline; 
argc = 0; 

if (cmdline) { 

strcpy(cmd, "NO"); 
cmd += strlen(cmd); 
cmd[0] = 0; 

argv[++argc] = ++cmd; 

} // if (cmdline)... 


EndDialog(hdlg, 0); 
return (TRUE); 

} 

break; 
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} 

return (FALSE); 

IParam; // unreferenced formal parameter 

} 

/^+***** ************************* ********* ******* ********** ******** ****★*// 

//Function: GetName 

// Inputs: array containing case numbers 

// Outputs: case number 

// Date revised and comments: 

^********** ***************************************** *************** ****♦// 

int GetName (char ***pargv, char set_name[3000][30], int no_cases) 

{ 

int ret, i; 

HANDLE hinst; 

HWND hwnd; 
char szFile[80]; 

hinst = GetModuleHandle (NULL); 
hwnd = GetFocus(); 

case_amt = no_cases; 

for(i = 0; i < case_amt; i -H-) 

stmcpy(case_names[i], set_name[i], strlen(set_name[i]) - 1); 

ret = DialogBoxParam (hinst, "CP", NULL, CPDlgProc, (LPARAM)pargv); 

if (-1 = ret) { 

ret = GetLastError(); 

printf ("Unable to create dialog: %d\n'\ ret); 

GetModuleFileName (hinst, szFile, sizeof(szFile)); 

printf ("hinst = %d\n'\ hinst); 

printf ("hwnd = %d\n", hwnd); 

printf ("File = %s\n", szFile); 

return FALSE; 


} 

return ret; 

i 

^******** ******************************** *******************************// 

// Function: CPDlgProc - Procedure that handles inputs, commands to the 
// dialog box 

// Inputs: window handle 
// Outputs: 

// Date revised and comments: 

/y******* ******************************************************** ********// 

BOOL APIENTRY CPDlgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam) 

{ 

int wmld; 

static char ***pargv; 
static char **argv; 

int i, item, index, iCtrl = 402, argc; 
char *cmd; 
char *cmdline; 

int max_no_file = 30; 

switch (msg) { 

case WM_INITDIALOG: 

// We need to initialize stuff in the dialog box... 

pargv = (char ***)lParam; 
argv = * pargv; 

CenterWindow (hdlg); 


// removes the carriage return 
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i = 0; 

while(i < case_amt){ 

index = SendDlgltemMessage (hdlg, iCtrl, CB_ADDSTRING, 0, 

(DWORD)(LPSTR)case_names[i]); 

SendDlgltemMessage (hdlg, iCtrl, CB_SETITEMDATA, index, i); 

if (i == 0) 

SendDlgltemMessage (hdlg, iCtrl, CBJSETCURSEL, index, 0); 
i++; 


return (TRUE); 

case WM_DESTROY : 
break; 

case WM_COMMAND; 

wmld = LOWORD(wParam); 
switch (wmld) { 


case IDOK: 

cmd = cmdline =■ (char *)Global Alloc (GPTR, 128); 
argv[0] = cmdline; 
argc = 0; 


0 ); 

index, 0); 


if (cmdline) { 


index = SendDlgItemMessage(hdlg, iCtrl, CB_GETCURSEL, 0, 
item = SendDlgltemMessage (hdlg, iCtrl, CB_GET ITEM DATA, 


wsprintf ((LPSTR)cmd, ”%s\ (LPSTR)case_names[item]); 

cmd += strlen(cmd); 

cmd[0) = 0; 

argv[++argc] = ++cmd; 

) // if (cmdline)... 


EndDialog(hdlg, argc); 
return (TRUE); 


case IDCANCEL: 
return (TRUE); 

) 

break; 

} 

return (FALSE); 


EndDialog(hdlg, 0); 


IParam; // unreferenced formal parameter 

} 

^* **********************> ************************************************// 

// Function: GetOutputData 

// Inputs: array containing case numbers 

// Outputs: case number 

// Date revised and comments: 

//************* *********************************** ***********************// 

int GetOutputData (char ***pargv, char temp_set_name[3000][40], int no_output_data) 

{ 

int ret, i; 

HANDLE hinst; 

HWND hwnd; 
char szFile[80]; 


hinst = GetModuleHandle (NULL); 
hwnd = GetFocus(); 


output_data_amt = no_output_data; 


for(i = 0; i < output_data_amt; i++) 

stmcpy(output_data_names[i], temp_set_name[i), strlen(temp_set_name[i]) - 1); 

the carriage return 


// removes 
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ret = DialogBoxParam (hinst, "OOP", NULL, ODDlgProc, (LPARAM)pargv); 


if (- [ == ret) { 

ret = GetLastErrorO; 

printf (’’Unable to create dialog: %d\n”, ret); 

GetModuleFileName (hinst, szFile, sizeof(szFile)>; 

printf ("hinst = %d\n", hinst); 

printf ("hwnd = %d\n", hwnd); 

printf (’’File = %s\n", szFile); 

return FALSE; 


} 

return ret; 

} 

^** *********** ************************ ****** ******************* *********// 

// Function: CPDlgProc - Procedure that handles inputs, commands to the 
// dialog box 

// Inputs: window handle 
// Outputs: 

// Date revised and comments: 

^* ****** ********* ***************************** ********* *****************// 

BOOL APIENTRY ODDlgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam) 

{ 

int wmld; 

static char ***pargv; 
static char **argv; 

int i, items[10], nojtems, index = 10, iCtrl = 402, argc; // index - maximum number of items selected from list box 

char *cmd; 
char *cmdline; 

int max_noJile = 30; 


switch (msg) { 
case WM JNITDIALOG: 

// We need to initialize stuff in the dialog box... 


pargv = (char ***)lParam; 
argv = * pargv; 
CenterWindow (hdlg); 


i = 0; 


while(i < output_data_amt)( 

index = SendDlgltemMessage (hdlg, iCtrl, LB_ADDSTRING, 0, 


(DWORD)(LPSTR)output_data_names[i]); 


return (TRUE); 


} 


case WM_DESTROY : 
break; 


case WM„COMMAND: 

wmld = LOWORD( wParam); 
switch (wmld) { 
case IDOK: 

cmd = cmdline = (char *)GlobalAlloc (GPTR, 400); 
argv[0] = cmdline; 
argc = 0; 

if (cmdline) { 

LB_GETSELITEMS, index, (DWORD)(LPINT)items); 


(LPSTR)output_data_names[(items[i])]); 


// Increased memory space 


nojtems = SendDlgltemMessage (hdlg, iCtrl, 
i = 0; 

while(i < noJtems){ 

wsprintf ((LPSTR)cmd, "%s", 

cmd += strlen(cmd); 
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cmd[0] = 0; 

argv[++argc] = ++cmd; 
i++; 


EndDialog(hdlg, argc); 
return (TRUE); 

case IDCANCEL: 

return (TRUE); 

} 

break; 

) 

return (FALSE); 


) // if (cmdline)... 


EndDialog(hdlg, 0); 


1 Par am; // unreferenced formal parameter 

} 

^********** ******************************************** *****************// 

// Function: GetLoadSetName 

// Inputs: array containing case numbers 

// Outputs; case number 

// Date revised and comments: 

^****** ************************************** ********************** **#**// 


int GetLoadSetName (char ***pargv, char loadset_names[ 1 00] [30] , int no.load) 

I 

int ret, i; 

HANDLE hinst; 

HWND hwnd; 
char szFile[80]; 

hinst = GetModuleHandle (NULL); 
hwnd = GetFocus(); 

load.amt = no.load; 

for(i = 0; i < load.amt; i++) 

stmcpy(load_names[i], loadset_names[i], strlen(loadset_names[i]) - I); 

carriage return 

ret = DialogBoxParam (hinst, "LSP", NULL, LSDlgProc, (LPARAM)pargv); 

if (-1 = ret) { 

ret = GetLastError(); 

printf ("Unable to create dialog: %d\n", ret); 

GetModuleFileName (hinst, szFile, sizeof(szFile)); 

printf ("hinst = %d\n", hinst); 

printf ("hwnd = %d\n'\ hwnd); 

printf ("File = %s\n", szFile); 

return FALSE; 


} 

return ret; 

} 

^* ****************** ********* ************************** ****** ***********// 

// Function: CPDlgProc - Procedure that handles inputs, commands to the 
// dialog box 

fl Inputs: window handle 
// Outputs: 

ft Date revised and comments: 

//********** *********************************** **************************// 

BOOL APIENTRY LSDlgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam) 

{ 

int wmld; 

static char ***pargv; 


// removes the 


E-239 



static char **argv; 

int i, item, index, iCtrl = 402, argc; 
char *cmd; 
char *cmdline; 

int max_no_file = 30; 

switch (msg) { 

case WM_IN ITD I ALOG : 

// We need to initialize stuff in the dialog box... 

pargv = (char ***)lParam; 
argv = * pargv; 

CenterWindow (hdlg); 


i = 0; 

while(i < load_amt){ 

index = Send Dig ItemMes sage (hdlg, iCtrl, CB_ADDSTRING, 0, 

(DWORD)(LPSTR)load_names[i]); 

SendDlgltemMessage (hdlg, iCtrl, CB_SETITEMDATA, index, i); 

if (i = 0) 

SendDlgltemMessage (hdlg, iCtrl, CB_SETCURSEL, index, 0); 
i++; 


return (TRUE); 

case WM.DESTROY: 
break; 


case WM_COMMAND: 

wmld = LOWORD(wParam); 
switch (wmld) { 


case IDOK: 

cmd = cmdline = (char *)GlobalAlloc (GPTR, 400); 
argv[0] = cmdline; 
argc = 0; 


0 ); 

index, 0); 


if (cmdline) { 


index = SendDlgItemMessage(hdlg, iCtrl, CB_GETCURSEL, 0, 
item = SendDlgltemMessage (hdlg, iCtrl, CB_GETlTEM D ATA, 


wsprintf ((LPSTR)cmd, "%s M , (LPSTR)load_names[item]); 

cmd += strlen(cmd); 

cmd[0] = 0; 
argv[++argc] = ++cmd, 

} // if (cmdline)... 


EndDialog(hdlg, argc); 
return (TRUE); 


case IDCANCEL: 
return (TRUE); 

} 

break; 

} 

return (FALSE); 


EndDialog(hdlg, 0); 


IParam; // unreferenced formal parameter 

} 

**************** ********************** ******* *************** ********// 
// Function: GetConstraintSetName 
// Inputs: array containing constraint names 
// Outputs: case number 
// Date revised and comments: 

H ** ************* *** ******* *************** ********* ************** **♦*♦***// 
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int GetConstraintSetName (char ***pargv, char constraintseUnames[ 100][40], int no_constraint) 

{ 

int ret, i; 

HANDLE hinst; 

HWND hwnd; 
char szFile[80]; 

hinst = Get Module Handle (NULL); 
hwnd = GetFocus(); 

constraint_amt = no_constraint; 

for(i = 0; i < constrain t_amt; i++) 

strncpy(constraint_names[i], constraintset_names[i], strlen(constraintset_names[i]) - 1); 

the carriage return 

ret = DialogBoxParam (hinst, "CSP”, NULL, CSDlgProc, (LPARAM)pargv); 

if (-1 == ret) { 

ret = GetLastError(); 

printf (’’Unable to create dialog: %d\n", ret); 

GetModuleFileName (hinst, szFile, sizeof(szFile)); 

printf ("hinst = %d\n", hinst); 

printf ("hwnd = %d\n", hwnd); 

printf ("File = %s\n", szFile); 

return FALSE; 


} 

return ret; 

} 

yy***********^***#***^***** ********************************** **********// 

// Function: CSDlgProc - Procedure that handles inputs, commands to the 
// dialog box 

// Inputs: window handle 
// Outputs: 

// Date revised and comments: 

H *j^**#********** *************************** * ************************** *// 

BOOL APIENTRY CSDlgProc (HWND hdlg, UINT msg, WPARAM wParam, LPARAM IParam) 

{ 

int wmld; 

static char ***pargv; 
static char **argv; 

int i, item, index, iCtrl = 402, argc; 
char *cmd; 
char *cmdline; 

int max_no_file = 30; 

switch (msg) { 
case WM_INITDIALOG: 

// We need to initialize stuff in the dialog box... 

pargv = (char ***)lParam; 
argv = * pargv; 

CenterWindow (hdlg); 


i = 0; 

while(i < constraint_amt){ 

index = SendDlgltemMessage (hdlg, iCtrl, CB_ADDSTRING, 0, 

(DWORD)(LPSTR)constraint_names[i]); 

SendDlgltemMessage (hdlg, iCtrl, CB_SETITEMDATA, index, i); 

if (i == 0) 

SendDlgltemMessage (hdlg, iCtrl, CBJSETCURSEL, index, 0); 

i++; 


return (TRUE); 
case WM_DESTROY : 


// removes 
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break; 


case WM.COMMAND: 

wmld - LOWORD(wParam); 
switch (wmld) { 

case EDOK: 

cmd = cmdline = (char *)Global Alloc (GPTR, 400); 
argv[0] = cmdline; 
argc = 0; 


0 ); 

index, 0); 


if (cmdline) { 


index = SendDlgItemMessage(hd!g, iCtrl, CB_GETCURSEL, 0, 
item = SendDlgltemMessage (hdlg, iCtrl, CB_GET1TEMDATA, 


wsprintf ((LPSTR)cmd, "%s\ (LPSTR)constraint_names[item]); 

cmd += strlen(cmd); 

cmd[0] = 0; 

argv[++argc] = ++cmd; 

} // if (cmdline)... 


EndDialog(hdlg, argc); 
return (TRUE); 

case IDCANCEL: 

return (TRUE); 

} 

break; 

} 

return (FALSE); 

IParam; // unreferenced formal parameter 


EndDialog(hdlg, 0); 
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X******************************************************************** 

* User name: BSTEVENSON (83) Queue: DUAL_0RLAND0/HP5_SIQ 

* File name: Server: HP5SIMX 

* Directory: 

* Description: MS Project - ITT0498.MPP 

* March 30, 1998 1:08pm 

********************************************************************* 


********* 
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